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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |