如何得知被下的button |
|
cooper
一般會員 發表:17 回覆:41 積分:11 註冊:2002-03-25 發送簡訊給我 |
|
jieshu
版主 發表:42 回覆:894 積分:745 註冊:2002-04-15 發送簡訊給我 |
引言: 請問一下各位我有一個按鈕原來是用 BitButton 來設計的 但客戶卻要求要有flat的效果 ~ 所以改成用SpeedButton 來做 ~ 可是我的一段code就無法使用 ex:宣告一個公用變數在OnClick紀錄就好了。if ActiveControl = BitBtn1 then do_something;但因為SpeedButton不是TWinControl的子類別 ~ 所以不能判 斷 ~ 請問一下我該怎麼樣才知道被按下的是哪個SpeedBtn呢 ?? 謝謝各位的回答 Regards, cooper var gt_ActiveControl : TObject; gt_ActiveControl := Sender;TJSQRBuild (簡易報表建立元件) http://freehomepage.taconet.com.tw/This/is/taconet/top_hosts//jieshu/delphi.htm#JSQRBuild 經由元件屬性設定,可不用自己拖拉QuickReport元件,即可建立簡單的QuickReport報表,可在設計階段預覽。亦可將建立的報表存成 Delphi 的 Form (類似 QuickReport Wizard 所產生的程式),再做複雜的設定使用,免除一一拖拉元件的困擾。
------
人生有夢,逐夢而行 人若為善,福雖未至,禍已遠離 人若為惡,禍雖未至,福已遠離 http://www.taconet.com.tw/jieshu/ |
cooper
一般會員 發表:17 回覆:41 積分:11 註冊:2002-03-25 發送簡訊給我 |
引言: 宣告一個公用變數在OnClick紀錄就好了。請問沒有辦法用類似我上面的方法來做嗎(不太希望出現global variable) 另外多問一個問題像speedbutton這一類沒有handle的類別~要怎麼讓他出 現象handle一樣的東西(有許多API需要用到handle) Regards, coopervar gt_ActiveControl : TObject; gt_ActiveControl := Sender;TJSQRBuild (簡易報表建立元件) http://freehomepage.taconet.com.tw/This/is/taconet/top_hosts//jieshu/delphi.htm#JSQRBuild 經由元件屬性設定,可不用自己拖拉QuickReport元件,即可建立簡單的QuickReport報表,可在設計階段預覽。亦可將建立的報表存成 Delphi 的 Form (類似 QuickReport Wizard 所產生的程式),再做複雜的設定使用,免除一一拖拉元件的困擾。 |
jieshu
版主 發表:42 回覆:894 積分:745 註冊:2002-04-15 發送簡訊給我 |
引言: 請問沒有辦法用類似我上面的方法來做嗎(不太希望出現global variable) 另外多問一個問題像speedbutton這一類沒有handle的類別~要怎麼讓他出 現象handle一樣的東西(有許多API需要用到handle) Regards, cooper這可能得找其他元件或是自己參考Source Code來改寫BitBtn使他有Flat的功能。 TJSQRBuild (簡易報表建立元件) http://freehomepage.taconet.com.tw/This/is/taconet/top_hosts//jieshu/delphi.htm#JSQRBuild 經由元件屬性設定,可不用自己拖拉QuickReport元件,即可建立簡單的QuickReport報表,可在設計階段預覽。亦可將建立的報表存成 Delphi 的 Form (類似 QuickReport Wizard 所產生的程式),再做複雜的設定使用,免除一一拖拉元件的困擾。
------
人生有夢,逐夢而行 人若為善,福雖未至,禍已遠離 人若為惡,禍雖未至,福已遠離 http://www.taconet.com.tw/jieshu/ |
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
1 如果你是將所有SpeedButton接向同一Event, 用Sender
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Sender = SpeedButton1 then 2. TwinControl Implement Window Handle, 使其子類別可接受Message, 此TWincontrol之意義所在. 無Handle自然不可使用API. 故若須要接受額外之Message還是繼承TBitBtn 吧
|
cooper
一般會員 發表:17 回覆:41 積分:11 註冊:2002-03-25 發送簡訊給我 |
引言: 1 如果你是將所有SpeedButton接向同一Event, 用Sender procedure TForm1.SpeedButton1Click(Sender: TObject); begin if Sender = SpeedButton1 then 2. TwinControl Implement Window Handle, 使其子類別可接受Message, 此TWincontrol之意義所在. 無Handle自然不可使用API. 故若須要接受額外之Message還是繼承TBitBtn 吧恩恩 ~ 謝謝兩位的回答 ~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |