線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1214
推到 Plurk!
推到 Facebook!

控制項的事件不能利用其他控制項觸發嗎

尚未結案
pricejit2
一般會員


發表:53
回覆:18
積分:14
註冊:2005-01-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-08 15:51:22 IP:220.130.xxx.xxx 未訂閱
procedure TForm1.Button2Click(Sender: TObject); begin button1.OnKeyDown(sender); //無法執行 end; procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin showmessage('aa'); end;
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-08 16:18:30 IP:61.70.xxx.xxx 未訂閱
您好: 你要呼叫這個才對Button1KeyDown,不過像這種的事件呼叫,我都會在多寫一個程序去呼叫不然,你無法得到由系統傳給程式的訊息,如果真要去做會很麻煩,因此簡單點就是像下面這樣: procedure test(); begin showmessage('aa'); end; procedure TForm1.Button2Click(Sender: TObject); begin test(); end; procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin test(); end;
pricejit2
一般會員


發表:53
回覆:18
積分:14
註冊:2005-01-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-08 16:28:42 IP:220.130.xxx.xxx 未訂閱
因為是想用到那的事件的功能 所以想在別的控制項觸發 不是要另外寫程序 有辦法嗎
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-08 17:05:46 IP:61.70.xxx.xxx 未訂閱
您好: 提供您兩種方式: procedure TForm1.Button2Click(Sender: TObject); var Key:word; begin SendMessage(Form1.Handle,WM_KEYDOWN,35,0);//送一個按鍵去觸發 Key:=0; FormKeyDown(Sender,Key,[]);//直接呼叫. end;
jest0024
高階會員


發表:11
回覆:310
積分:224
註冊:2002-11-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-06-09 00:21:42 IP:59.104.xxx.xxx 未訂閱
引言: procedure TForm1.Button2Click(Sender: TObject); var ch:word; begin //button1.OnKeyDown(sender); //無法執行 ch:=$37; Button1.OnKeyDown(Sender,ch,[]); end; procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin showmessage('aa'); end;
系統時間:2024-03-29 7:10:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!