Описание процедуры

← →
Oleg_teacher © (2007-03-07 09:20) [0]

Ситуация: динамически создаю Батон1.
Надо собитию ОнКлик Батону1 присвоить свою процедуру
ХХХ
Button1.onclick:=XXX ///
Подскажите как описать процедуру ХХХ

← →
Сергей М. © (2007-03-07 09:23) [1]

type
TSomeClass = class(...)
..
procedure DoOnClick(Sender: TObject);
..
end;

..

procedure TSomeClass.DoOnClick(Sender: TObject);
begin
..
end;

..

Button1.onclick := SomeInstanceOfTSomeClass.DoOnClick;

← →
Oleg_teacher © (2007-03-07 09:38) [2]

> Button1.onclick := SomeInstanceOfTSomeClass.DoOnClick;
>

Чучуть не полнл SomeInstanceOfTSomeClass. можна на примере. Извини за простые вопрсы но так уж получилось

← →
S@shka © (2007-03-07 09:50) [3]

Button1.onclick := DoOnClick;
)")

← →
Oleg_teacher © (2007-03-07 09:56) [4]

> Button1.onclick := DoOnClick;

Если так просто то выдает сообщение андекларейт DoOnClick;

← →
boa_kaa © (2007-03-07 10:05) [5]

> Oleg_teacher © (07.03.07 09:56) [4]
> > Button1.onclick := DoOnClick;
> Если так просто то выдает сообщение андекларейт DoOnClick;

А объявить его религия не позволяет?

← →
Oleg_teacher © (2007-03-07 10:07) [6]

Так я вроде и обявил
type
TSomeClass = class(Tbutton)
procedure DoOnClick(Sender: TObject);
end;

← →
boa_kaa © (2007-03-07 10:12) [7]

В [1] все написано

← →
Oleg_teacher © (2007-03-07 10:13) [8]

> Так я вроде и обявил
> type
> TSomeClass = class(Tbutton)
> procedure DoOnClick(Sender: TObject);
> end;

О... майн гот......

В форме своей объявляй

TForm1 = class (TForm)
....
...
Button1 : TButton;
procedure DoOnClick(Sender: TObject);
end;

и например

procedure TForm1.FormCreate ();
begin
Button1 := TButton.Create(self);
...
Button1.OnClick := DoOnClick;
end;

> Oleg_teacher

Да без обид )))

Описание процедуры Найти похожие ветки