KeyDown 事件無法觸發!!? |
尚未結案
|
LiangJimmy
一般會員 發表:4 回覆:8 積分:2 註冊:2004-10-25 發送簡訊給我 |
|
yaoyao01tw
一般會員 發表:28 回覆:17 積分:9 註冊:2003-01-28 發送簡訊給我 |
|
LiangJimmy
一般會員 發表:4 回覆:8 積分:2 註冊:2004-10-25 發送簡訊給我 |
|
20052020
初階會員 發表:121 回覆:79 積分:40 註冊:2005-01-18 發送簡訊給我 |
引言: 我寫了兩個Form, 動作如下: Form1按下F2鍵呼叫出Form2, Form2按下F10鍵關閉, 關閉後回到Form1後他的KeyDown事件卻無法觸發, Form1跟Form2的KeyPreview都有設成True, 我發現回到Form1後必須先按下F10,然後再按下F2後, 才會觸發Form1的KeyDown事件! 請問各位高手該如何解決!!var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if(KEY=VK_F2)then Form2.ShowModal; end; end. var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if(KEY=VK_F10)then Form2.Close; Form2.Close; end; end. //TForm1用FormKeyUp //TForm2用FormKeyDown 試試看.
------
Xax |
LiangJimmy
一般會員 發表:4 回覆:8 積分:2 註冊:2004-10-25 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
|
lijenyun
一般會員 發表:3 回覆:19 積分:9 註冊:2003-06-22 發送簡訊給我 |
|
LiangJimmy
一般會員 發表:4 回覆:8 積分:2 註冊:2004-10-25 發送簡訊給我 |
|
lijenyun
一般會員 發表:3 回覆:19 積分:9 註冊:2003-06-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |