call FormKeyDown error |
尚未結案
|
ROLAND168
一般會員 發表:39 回覆:49 積分:17 註冊:2003-02-26 發送簡訊給我 |
請教各位:
不知為何錯?? procedure TForm1.Button1Click(Sender: TObject);
var
a:TShiftState;
begin
a:=[ssCtrl];
FormKeyDown(self,vk_f4,a); //這裡出錯??
//Types of actual and formal var parameters must be identical
//但形態都對??
end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage('111');
end;
|
cmf
尊榮會員 發表:84 回覆:918 積分:1032 註冊:2002-06-26 發送簡訊給我 |
請注意紅色部分
procedure TForm1.Button1Click(Sender: TObject); var a:TShiftState; b:WORD; begin a:=[ssCtrl]; b:=vk_f4; FormKeyDown(self,b,a); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift:TShiftState); begin showmessage('111'); end;發表人 - cmf 於 2003/09/13 23:46:43
------
︿︿ |
ROLAND168
一般會員 發表:39 回覆:49 積分:17 註冊:2003-02-26 發送簡訊給我 |
引言: 請注意紅色部分了解謝謝!!procedure TForm1.Button1Click(Sender: TObject); var a:TShiftState; b:WORD; begin a:=[ssCtrl]; b:=vk_f4; FormKeyDown(self,b,a); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift:TShiftState); begin showmessage('111'); end;發表人 - cmf 於 2003/09/13 23:46:43 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |