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