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

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

Как можно выполнить следующую процедуру ? имеется множество [D3, D4, WinXP]

aha ©   (2007-05-13 00:56:00) 

преположим кнопок  и мне нужно  у всех изменить цвет . То есть хотелось бы сделать закраску в цикле , не вызывая отдельно каждую кнопку . Как это можно сделать ?

---

Германн   (2007-05-13 02:28:00) [1]

> Riply ©   (13.05.07 01:41) [6]
>
> > [5] Германн ©   (13.05.07 01:34)
> >Если это TButton, то цвет все равно не изменишь :(
> А если очень-очень хочеться ? :)
>

В таких случаях я предпочитаю TPanel. Дешево и со вкусом :)

---

Riply   (2007-05-13 01:41:00) [2]

> [5] Германн ©   (13.05.07 01:34)
>Если это TButton, то цвет все равно не изменишь :(
А если очень-очень хочеться ? :)

---

Германн   (2007-05-13 01:34:00) [3]

> преположим кнопок  и мне нужно  у всех изменить цвет

Если это TButton, то цвет все равно не изменишь :(

---

Anatoly Podgoretsky   (2007-05-13 01:11:00) [4]

> aha  (13.05.2007 01:06:03)  [3]

Лучше Controls и рекурсия.

---

aha   (2007-05-13 01:06:00) [5]

сенкс большое !!

---

DVM   (2007-05-13 01:05:00) [6]

var
 i: integer;
begin
 for i:=0 to Form1.ControlCount - 1 do
   begin
     if Form1.Controls[i] is TButton then
       (Form1.Controls[i] as TButton).Caption := '123';
   end;
end;

---

Джо   (2007-05-13 01:02:00) [7]

Если кнопки созданы в дизайн-тайм или если просто владелец у них форма, то проход по всем компонентам формы и изменение свойства объектов конкретного класса будет выглядеть примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
begin
 for I := 0 to ComponentCount-1 do
   if Components[I] is TButton then
     TButton(Components[I]).Font.Name := 'Times New Roman'
end;


---

Наверх