Текущий архив: 2006.04.02;
Скачать: CL | DM;

Вниз

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.033 c