var
i:word;
begin
for i:=0 to ComponentCount-1 do
if (Components is TButton) then
with (Components as TButton) do
if (Tag=1) then //чтобы отличать от других кнопок, которые не надо переименовывать
Caption:=inttostr(i);
end;
Задать имя кнопкам в форме
Delphi 6. Ситуация. В форме есть Х кнопок. У каждой кнопки должно быть имя от 1 до Х. подскажите, пожалуйста. Знаю, что чайник, но надо.
Цитата:
Originally posted by chucha
Delphi 6. Ситуация. В форме есть Х кнопок. У каждой кнопки должно быть имя от 1 до Х. подскажите, пожалуйста. Знаю, что чайник, но надо.
Delphi 6. Ситуация. В форме есть Х кнопок. У каждой кнопки должно быть имя от 1 до Х. подскажите, пожалуйста. Знаю, что чайник, но надо.
Несовсем понял.
Свойство Name?
Цитата:
Originally posted by chucha
Delphi 6. Ситуация. В форме есть Х кнопок. У каждой кнопки должно быть имя от 1 до Х. подскажите, пожалуйста. Знаю, что чайник, но надо.
Delphi 6. Ситуация. В форме есть Х кнопок. У каждой кнопки должно быть имя от 1 до Х. подскажите, пожалуйста. Знаю, что чайник, но надо.
Код:
Цитата:
Originally posted by chucha
Delphi 6. Ситуация. В форме есть Х кнопок. У каждой кнопки должно быть имя от 1 до Х. подскажите, пожалуйста. Знаю, что чайник, но надо.
Delphi 6. Ситуация. В форме есть Х кнопок. У каждой кнопки должно быть имя от 1 до Х. подскажите, пожалуйста. Знаю, что чайник, но надо.
Кроме перечисленного:
1) создавать кнопки динамически в виде массива;
2) обращаться как к компоненту по имени;
1) что-то в этом духе
TMyBtn = class(TButton)
var
MyBtn : array[1..100] of TMyBtn;
for i:=1 to 100 do begin
MyBtn:=TMyBtn.Create(Form1);
with MyBtn do begin
Caption:=t;
Left:=5;
Top:=(Height+15)*i;
end;
2) TButton(FindComponent('Button' + IntToStr(i)))