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

Вниз

Пустые параметры в событиях при объявлении как в FAQ.   Найти похожие ветки 

← →
OUGHT ©   (2008-04-14 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 ©   (2008-04-14 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 ©   (2008-04-14 11:40) [2]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.011 c