| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Button и нескольлко процедур-обработчиков [D6, WinXP]

DNT ©   (2002-11-08 19:09:00) 

Есть обычный button.
Есть 2 процедуры.

Можно ли хранить адреса этих процедур в массиве и к Button.OnClick присваивать значения оттуда.
Как можно это реализовать?
tnx : )

---

DNT   (2002-11-08 20:13:00) [1]

Ок. Спасибо!

2Alex44: это для защиты...
: )

---

wssg   (2002-11-08 20:05:00) [2]


TForm1 = class(TForm)
procedure p1(sender:Tobject);
procedure p2(sender:Tobject);
...
var
OnClickArray:array[0..1] of TNotifyEvent;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
OnClickArray[0]:=p1;
OnClickArray[1]:=p2;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.OnClick:=OnClickArray[0];
end;

procedure TForm1.p1(sender: Tobject);
begin
ShowMessage("p1");
end;

procedure TForm1.p2(sender: Tobject);
begin
ShowMessage("p2");
end;


---

Alex44   (2002-11-08 20:05:00) [3]

> Var Mas: array [1..2] of Pointer

Var Mas: array [1..2] of TNotifyEvent;

(procedure of object =/= pointer ! )

UsualButton.OnClick := Mas[1]

Tol"ko zachem? Ne proshe vnutri case .. of postavit"?

---

bbbb   (2002-11-08 19:38:00) [4]

Var Mas: array [1..2] of Pointer

---

DNT   (2002-11-08 19:38:00) [5]

So how?

---

Alex44   (2002-11-08 19:15:00) [6]

Mozhno.

---

Наверх