FormKeyDown重覆2次 |
|
答題得分者是：woodss
|
|
nick167
中階會員   發表：86 回覆：133 積分：53 註冊：2003-02-12 發送簡訊給我 |
procedure Tbusa_Form1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
vk_F2:busaButton4Click(nil);
-----------------------------------------------------
??? 問題按F2時會去Run busabtton4Click(nil)會 Run 2次 ?
如果用mouse點busaButton4Click 就Run 1次
------------------------------------------------------
vk_F12:busaButton5Click(nil);
end;
end; procedure Tbusa_Form1.busaButton4Click(Sender: TObject);
begin
busaLabel3D1.Caption:='變更代號：'+busaADOQuery1.FieldByName('companyName').AsString;
if Application.MessageBox('是否切換此代號','確認切換代號',mb_YesNo+mb_defbutton2+mb_iconQuestion+mb_systemModal) = IdYes then begin
busForm1.busTable1.Edit;
busForm1.busTable1.FieldByName('companyNo').AsString:=busa_Form1.busaADOQuery1.FieldByName('CompanyNo').AsString;
busForm1.busTable1.Post;
busaADOQuery2.Close;
busaADOQuery3.Close;
Close; // ?? 已經close為何再run一次?
end;
busaLabel3D1.Caption:='';
end;
|
|
sos_admin
版主 發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
|
|
woodss
一般會員  發表：13 回覆：24 積分：17 註冊：2003-07-24 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
|
|
nick167
中階會員 發表：86 回覆：133 積分：53 註冊：2003-02-12 發送簡訊給我 |
發表時間：2003-08-05 17:23:52
IP:61.228.xxx.xxx 未訂閱
系統時間：2024-07-04 23:52:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |