事件的問題 |
|
|
|
Kimmy
一般會員   發表：10 回覆：17 積分：5 註冊：2002-05-31 發送簡訊給我 |
各位高手請問一下.....
為何我在起動KeyDown時,會在BEFOREPOST起動二次呢.....@_@
是不是我有地方寫錯咩....
程式如下
procedure Tfmsimple_MD.gddetailKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF KEY = VK_Down THEN
BEGIN
qrydetail.Post;
END ;
end;
procedure TFMMK011.qrydetailBeforePost(DataSet: TDataSet);
begin
inherited;
if....else .......
end;
|
|
Jasonwong
版主  發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
[quote]
各位高手請問一下.....
為何我在起動KeyDown時,會在BEFOREPOST起動二次呢.....@_@
是不是我有地方寫錯咩....
程式如下
procedure Tfmsimple_MD.gddetailKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF KEY = VK_Down THEN
BEGIN
qrydetail.Post;
END ;
end;
procedure TFMMK011.qrydetailBeforePost(DataSet: TDataSet);
begin
inherited; ] <--- 將這一行刪除...你覺得怎樣
if....else .......
end; [/quote
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心 |
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
引言: Jasonwong... 這個inherited會出現是因為我有用繼承拉.... 我是自己有寫個簡化的FROM啦,而在qrydetailBeforePost中我還沒有寫東西呢 @_@嗯...我知道了... 如果你把程式碼寫在inherited的上方呢... 因為你是繼承的...所以連BEFOREPOST也會繼承...所以把SOURCE寫在inherited的上方...就是當還沒有發生繼承之前完成一些事情... 你試試看...
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心 |
|
Kimmy
一般會員 發表：10 回覆：17 積分：5 註冊：2002-05-31 發送簡訊給我 |
|
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
發表時間：2002-07-08 16:21:48
IP:203.149.xxx.xxx 未訂閱
系統時間：2024-04-19 21:21:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |