Работа с большим количеством кнопок...

← →
Kostya (2005-08-24 23:05) [0]

Подскажите, пожалуйста, как программно изменить свойства множества кнопок, например с 2 по 4. Например, есть (Button2,Button3, Button4, Button5), а нужно программно изменить имя этих кнопок на (Button1, Button2, Button3, Button4) в самом проекте программы.

Вот неправильный код того, что хотелось бы сделать:

Procedure Primer (Sender: TObject); var x : Integer; begin for x:=2 to 4 do begin Button.Name[x] := Button[x-1]; end;

← →
TStas © (2005-08-24 23:16) [1]

Есть функция RenameComponent, но написано, что лучше ей не пользоваться

← →
Kostya (2005-08-24 23:23) [2]

Так правильнее:
Procedure Primer (Sender: TObject); var x : Integer; begin for x:=2 to 4 do begin Button[x].Name[x] := Button[x-1]; end;

← →
Kostya (2005-08-24 23:27) [3]

TStas: Какой модуль необходимо подключить чтобы ее использовать?

← →
Kostya (2005-08-25 00:05) [4]

ТЕМА ЗАКРЫТА, МЕНЯ УЖЕ ПОНЯЛИ НА ДРУГОМ ФОРУМЕ.

procedure TForm1.FormCreate(Sender: TObject);
var
i, N: integer;
begin
N := 0;
for i := 0 to ComponentCount - 1 do
if Components[i] is TButton then
begin
Inc(N);
Components[i].Name := "Button" + IntToStr(N)
end
end;

Только зачем это надо - совершенно непонятно.

Работа с большим количеством кнопок... Найти похожие ветки