Текущий архив: 2006.11.12;
Скачать: CL | DM;
Вниз
Событие 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.
← →
Kolan © (2006-10-26 20:49) [11]Вот тебе пример:
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;
← →
Kolan © (2006-10-26 20:52) [12]> Созданного Timage, плз . . .
procedure TMainForm.FormCreate(Sender: TObject);
begin
Image.OnClick := MyClick;
end;
← →
Leonid Troyanovsky © (2006-10-26 20:55) [13]
> 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.
← →
T54 © (2006-10-26 21:23) [14]Всем огромный пасиб, Leonid Troyanovsky - особый пасиб ! ! ! работает, только когда ставлю параметры:
type
TMyButton = class(TButton)
procedure Click(Sender: TObject); override;
end;
работать перестаёт . . .
← →
Ketmar © (2006-10-26 21:27) [15]>[14] T54(c) 26-Oct-2006, 21:23
>работать перестаёт . . .
за метлой, за метлой. или поучить собственно язык -- может, ещё не все потеряно.
Страницы: 1 вся ветка
Текущий архив: 2006.11.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.045 c
