Форум: "KOL";
Текущий архив: 2009.11.22;
Скачать: [xml.tar.bz2];
ВнизПустые параметры в событиях при объявлении как в 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 вся ветка
Форум: "KOL";
Текущий архив: 2009.11.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c