| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с большим количеством кнопок... [D7, WinXP]

Kostya ©   (2005-08-24 23:05:00) 

Подскажите, пожалуйста, как программно изменить свойства множества кнопок, например с 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;


---

Юрий Зотов   (2005-08-25 00:09:00) [1]

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;

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

---

Kostya   (2005-08-25 00:05:00) [2]

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

---

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

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

---

Kostya   (2005-08-24 23:23:00) [4]

Так правильнее:

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


---

TStas   (2005-08-24 23:16:00) [5]

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

---

Наверх