Текущий архив: 2005.10.02;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

← →
Юрий Зотов ©   (2005-08-25 00:09) [5]

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;

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

---

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

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.057 c