Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c