全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1493
推到 Plurk!
推到 Facebook!

Forms 背影可以由黑變白嗎?

尚未結案
bcshahuo
一般會員


發表:28
回覆:28
積分:11
註冊:2005-01-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-01-25 17:15:11 IP:61.219.xxx.xxx 未訂閱
我剛打算做由黑變白的背影,但發現了一個問題 form1.Color:=00000000;==>只能用數字,沒法用ffffffff 那我該怎麼做出效果,由白變黑的效果呢?
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-01-25 17:25:24 IP:218.15.xxx.xxx 未訂閱
bcshahuo您好: 这是不是您要的: form1.Color:=$00FFFFFF; Tcolor的取值范围:TColor = -$7FFFFFFF-1..$7FFFFFFF;可参考在线说明档 另form1.Color也可写成:clBlack,clNone等等,试试看 ~~~静心养德~~~ 發表人 - deity 於 2005/01/25 17:31:04
bcshahuo
一般會員


發表:28
回覆:28
積分:11
註冊:2005-01-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-01-25 17:33:18 IP:61.219.xxx.xxx 未訂閱
引言: bcshahuo您好: 这是不是您要的: form1.Color:=$00FFFFFF; Tcolor的取值范围:TColor = -$7FFFFFFF-1..$7FFFFFFF;可参考在线说明档 另form1.Color也可写成:clBlack,clNone等等,试试看 ~~~静心养德~~~ 發表人 - deity 於 2005/01/25 17:31:04
謝謝,這是我要的。 可以再請問一下,如果我要由白轉黑,或黑轉白 有什麼方法呢?
bcshahuo
一般會員


發表:28
回覆:28
積分:11
註冊:2005-01-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-01-25 17:35:14 IP:61.219.xxx.xxx 未訂閱
引言: bcshahuo您好: 这是不是您要的: form1.Color:=$00FFFFFF; Tcolor的取值范围:TColor = -$7FFFFFFF-1..$7FFFFFFF;可参考在线说明档 另form1.Color也可写成:clBlack,clNone等等,试试看 ~~~静心养德~~~ 發表人 - deity 於 2005/01/25 17:31:04
謝謝,這是我要的。 可以再請問一下,如果我要由白轉黑,或黑轉白 有什麼方法呢? 不好意思,我想,我表達錯誤了@@,歹勢 我是想問 由黑變白,是慢慢變的那種。 就像由黑銀幕轉為白銀幕時的那種場影變換。 謝謝。
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-01-26 07:56:39 IP:218.15.xxx.xxx 未訂閱
拉一个Timer,键入如下代码试试
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Color:=$00FFFFFF;  //一定时间后转为白
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color:=$00000000;  //默认为黑
end;
试试看
    <>~~~静心养德~~~ 

        
系統時間:2017-12-17 19:56:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!