Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
ВнизМассивы объектов Найти похожие ветки
← →
TonnyS (2002-01-09 11:16) [3]
TForm1 = class(TForm)
...
private
procedure ButtonsClick(Sender: TObject);
...
end;
const
buttons=5;
var
arr : array[0..buttons] of TButton;
procedure TForm1.ButtonsClick(Sender: TObject);
begin
case (Sender as TButton).tag of
0 : ... //нулевая кнопка
1 : ...
end;
end;
//в OnCreate формы:
var
i1 : integer;
...
for i1 := 0 to buttons do begin
arr[i1] := TButton.create(self);
arr[i1].parent := self;
arr[i1].OnClick := ButtonsClick;
arr[i1].tag := i1;
arr[i1].Caption := "кнопка N "+inttostr(i1);
end;
//в OnDestroy формы:
var
i1 : integer;
...
for i1 := 0 to buttons do arr[i1].Free;
вроде так.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c