請問如何判斷按下了ENTER鍵 |
答題得分者是:qoo1234
|
Black Knight
一般會員 發表:6 回覆:8 積分:2 註冊:2003-04-24 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
Black Knight
一般會員 發表:6 回覆:8 積分:2 註冊:2003-04-24 發送簡訊給我 |
|
Black Knight
一般會員 發表:6 回覆:8 積分:2 註冊:2003-04-24 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
引言: 例: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); begin if(Key=VK_ESCAPE) then MessageDlg('程序中止',mtInformation,[mbOK],0); end; 可以當Esc按下時執行。如何讓Enter按下時執行呢?是不是讓Key等于一個鍵值,還是要用readkey之類的函數? procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then MessageDlg('您按到了Enter',mtInformation,[mbOK],0); end;
------
~小弟淺見,參考看看~ |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |