如何得知被下的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 吧恩恩 ~ 謝謝兩位的回答 ~ |
發表時間：2002-06-07 03:10:23
IP:61.231.xxx.xxx 未訂閱
系統時間：2024-04-26 6:45:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |