FormKeyPress的事件 |
答題得分者是:a6475
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
我在FormKeyPress寫了以下程式,可是只有儲存和取消有作用,其它兩個卻沒有,這是為什麼呢?煩請大大們幫我解惑... IF (key=#13) then//儲存
button9click(sender); If (key=#27) then//取消
begin
query1.Cancel;
edit1.Text := '';
edit2.Text := '';
end; IF (key=#46) then//刪除
button7click(sender); IF (key=#45) then//新增
button5click(sender);
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin//鍵盤控制
IF (key=#13) then button9.click;//enter儲存
If (key=#27) then//esc取消
begin
query1.Cancel;
edit1.Text := '';
edit2.Text := '';
end;
IF (key=#46) then button7.Click;//delete刪除
IF (key=#45) then button5.Click;//insert新增
If (key=#38) then button2.Click;//↑上筆
IF (key=#40) then button3.Click;//↓下筆
IF (key=#37) then button1.Click;//←首筆
IF (key=#39) then button4.Click;//→末筆
end; 除了儲存和取消鍵有作用,剩下的按鍵都沒有作用,按鍵我都有把BUTTON的KEYPRESS指向FORMKEYPRESS。
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
|
alice100001
一般會員 發表:21 回覆:49 積分:19 註冊:2002-09-14 發送簡訊給我 |
|
nachi
初階會員 發表:40 回覆:116 積分:31 註冊:2003-02-26 發送簡訊給我 |
|
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |