Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Oleg_teacher © (2007-03-07 09:20:00)
Ситуация: динамически создаю Батон1.
Надо собитию ОнКлик Батону1 присвоить свою процедуру
ХХХ
Button1.onclick:=XXX ///
Подскажите как описать процедуру ХХХ

S@shka (2007-03-07 10:25:00) [1]

> Oleg_teacher

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

Oleg_teacher (2007-03-07 10:19:00) [2]

> S@shka © (07.03.07 10:13) [9]

Спасибо. Очень помог не обижайсь я только учусь учусь учусь!!!

Oleg_teacher (2007-03-07 10:13:00) [3]

> boa_kaa © (07.03.07 10:12) [7]
>
> В [1] все написано
>

Так я и говорю посмотри [2]

S@shka (2007-03-07 10:13:00) [4]

> Так я вроде и обявил
> 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;

boa_kaa (2007-03-07 10:12:00) [5]
В [1] все написано

Oleg_teacher (2007-03-07 10:07:00) [6]
Так я вроде и обявил
type
TSomeClass = class(Tbutton)
procedure DoOnClick(Sender: TObject);
end;

boa_kaa (2007-03-07 10:05:00) [7]

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

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

Oleg_teacher (2007-03-07 09:56:00) [8]

> Button1.onclick := DoOnClick;

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

S@shka (2007-03-07 09:50:00) [9]
Button1.onclick := DoOnClick;
)")

Oleg_teacher (2007-03-07 09:38:00) [10]

> Button1.onclick := SomeInstanceOfTSomeClass.DoOnClick;
>

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

Сергей М. (2007-03-07 09:23:00) [11]
type
TSomeClass = class(...)
..
procedure DoOnClick(Sender: TObject);
..
end;

..

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

..

Button1.onclick := SomeInstanceOfTSomeClass.DoOnClick;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »