Событие onClick

← →
T54 © (2006-10-26 19:31) [0]

Подскажите, плз, как отслеживать событие onClick у созданного программно объеккта (Button, Image и т.д.)

← →
Kolan © (2006-10-26 19:34) [1]

> [0] T54 © (26.10.06 19:31)
> Подскажите, плз, как отслеживать событие onClick у созданного
> программно объеккта (Button, Image и т.д.)

procedure MyClick(Sender: TObject); YoyrObject.OnClick := MyClick?

← →
Leonid Troyanovsky © (2006-10-26 19:38) [2]

> T54 © (26.10.06 19:31)

> Подскажите, плз, как отслеживать событие onClick у созданного
> программно объеккта (Button, Image и т.д.)

TMyButton = class(TButton) protected procedure Click; override; end;

--
Regards, LVT.

← →
T54 © (2006-10-26 20:22) [3]

объукт создаю так:

image:=Timage.create(Form17);
image.Parent:=Form17

Подскажите, что далее, всё, что можно уже перепробывал по-моему

← →
Ketmar © (2006-10-26 20:25) [4]

[1]

← →
T54 © (2006-10-26 20:33) [5]

Я так и делаю: далее пишу image.onClick:=click;

ниже
procedure click(Sender: TObject);
говорит, что Click: undeclared identrficator . . . вот

← →
Loginov Dmitry © (2006-10-26 20:38) [6]

T54 © (26.10.06 20:33) [5]
говорит, что Click: undeclared identrficator . . . вот

А ты что хотел?

← →
Kolan © (2006-10-26 20:40) [7]

> выше
> procedure click(Sender: TObject);

← →
T54 © (2006-10-26 20:47) [8]

> > выше
> > procedure click(Sender: TObject);

и так я тоже далал была такая фишка, что стиралось и описание процедуры и сама процедура...
если не сложно напишите фрагмент кода, полностью для обработки onClick для Созданного Timage, плз . . .

← →
Leonid Troyanovsky © (2006-10-26 20:47) [9]

> Kolan © (26.10.06 20:40) [7]

> выше

в корзину.

--
Regards, LVT.

← →
Leonid Troyanovsky © (2006-10-26 20:49) [10]

> T54 © (26.10.06 20:47) [8]

with TMyButton.Create(nil) do Parent := Self;

--
Regards, LVT.

Вот тебе пример:

TMainForm = class(TForm) private { Private declarations } public { Public declarations } procedure MyClick(Sender: TObject); end;

procedure TMainForm.MyClick(Sender: TObject); begin end;

procedure TMainForm.FormCreate(Sender: TObject); begin MainForm.OnClick := MyClick; end;

> Созданного Timage, плз . . .

procedure TMainForm.FormCreate(Sender: TObject); begin Image.OnClick := MyClick; end;

> Kolan © (26.10.06 20:49) [11]

> Вот тебе пример:

type TMyButton = class(TButton) procedure Click; override; end; procedure TMyButton.Click; begin inherited; ShowMessage("Yes!"); end; procedure TForm1.Button1Click(Sender: TObject); begin with TMyButton.Create(nil) do Parent := Self; end;

--
Regards, LVT.

Всем огромный пасиб, Leonid Troyanovsky - особый пасиб ! ! ! работает, только когда ставлю параметры:

type
TMyButton = class(TButton)
procedure Click(Sender: TObject); override;
end;
работать перестаёт . . .

>[14] T54(c) 26-Oct-2006, 21:23
>работать перестаёт . . .
за метлой, за метлой. или поучить собственно язык -- может, ещё не все потеряно.

Событие onClick Найти похожие ветки