Скачать: CL | DM;

Button и нескольлко процедур-обработчиков   Найти похожие ветки 

← →
DNT ©   (2002-11-08 19:09) [0]

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

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

---

← →
Alex44   (2002-11-08 19:15) [1]

Mozhno.

---

← →
bbbb   (2002-11-08 19:38) [2]

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

---

← →
DNT ©   (2002-11-08 19:38) [3]

So how?

---

← →
wssg   (2002-11-08 20:05) [4]


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) [5]

> 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"?

---

← →
DNT ©   (2002-11-08 20:13) [6]

Ок. Спасибо!

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c