Edit и OnKeyDown

← →
Seeket (2005-08-08 19:19) [0]

почему при нажатии любой клавиши в Edit следующий код выдает ошибку?program Project1; uses Windows,Messages,KOL; {$R *.res} var Form:PControl; Edit:PControl; procedure EditKeyDown(Sender: PControl; var Key: Longint; Shift: DWORD); begin end; begin Form:=NewForm(nil,"Test"); Edit:=NewEditbox(Form,[]); Edit.OnKeyDown:=TOnKey(MakeMethod(Nil,@EditKeyDown)); Run(Form); end.

← →
thaddy (2005-08-08 19:27) [1]

//wrong code
procedure EditKeyDown(Sender: PControl; var Key: Longint; Shift: DWORD);
begin

end;

is wrong!

it is a procedure OF OBJECT, so it should have a hidden self parameter, like this:

//Right code
procedure EditKeyDown(Dummy: Pointer;Sender: PControl; var Key: Longint; Shift: DWORD);
begin

end;

← →
Seeket (2005-08-08 19:37) [2]

2thaddy
thanks

Edit и OnKeyDown Найти похожие ветки