PHP DM Gate v0.9 » Пустые параметры в событиях при объявлении как в FAQ. <span class="vd">[Delphi, Windows]</span>

OUGHT © (14.04.08 00:02) [0]

Уважаемые пользователи КОL! Пишет вам новичок.
Я объявляю события, как показано в FAQ, а параметры приходят пустыми! Подскажите, в чем дело? Пример:

var GField: PControl;
...
procedure Click(Sender: PControl; var Mouse: TMouseEventData);
begin
MsgOK(Int2Str(Mouse.X)); //выдает
MsgOK(Int2Str(Mouse.Y)); //нули
end;
...
GField := NewPaintbox(Form1).SetSize(451, 451).SetPosition(10, 10);
GField.OnMouseDown := TOnMouse(MakeMethod(nil, @Click));

<Цитата>
Jon © (14.04.08 03:53) [1]

procedure Click(Dummy: Pointer; Sender: PControl; var Mouse: TMouseEventData);

program test;

uses
Windows, KOL;

var
GField: PControl;

procedure Click(Dummy: Pointer; Sender: PControl; var Mouse: TMouseEventData);
begin
ShowMsg('X = ' + Int2Str(Mouse.X) + ' : Y = ' + Int2Str(Mouse.X),MB_OK);
end;

begin
Applet := NewForm(nil,'Test');
GField := NewPaintbox(Applet).SetSize(451,451).CenterOnParent;
GField.Color := clBlack;
GField.OnMouseDown := TOnMouse(MakeMethod(nil,@Click));
Run(Applet);
end.

<Цитата>
OUGHT © (14.04.08 11:40) [2]

Большое Вам спасибо! Совершенно забыл про Dummy...

<Цитата>