| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пустые параметры в событиях при объявлении как в FAQ. [Delphi, Windows]

OUGHT ©   (2008-04-14 00:02:00) 

Уважаемые пользователи КО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));

---

OUGHT   (2008-04-14 11:40:00) [1]

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

---

Jon   (2008-04-14 03:53:00) [2]

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.

---

Наверх