Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
15-1253611795
XcCCC
2009-09-22 13:29
2009.11.22
Сопло принтерное сделать


2-1254835650
ocean
2009-10-06 17:27
2009.11.22
Как напечатать HTML?


11-1199016802
jabu
2007-12-30 15:13
2009.11.22
Form.ActiveControl not work


10-1161585328
Max Ivanych
2006-10-23 10:35
2009.11.22
Передача формулы c кириллицей в ячейку Excel


1-1225857127
Krolm
2008-11-05 06:52
2009.11.22
Процедуры вылетают без ошибок