Скачать: CL | DM;

Как можно выполнить следующую процедуру ? имеется множество   Найти похожие ветки 

← →
aha   (2007-05-13 00:56) [0]

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

---

← →
Джо ©   (2007-05-13 01:02) [1]

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

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;


---

← →
DVM ©   (2007-05-13 01:05) [2]

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;

---

← →
aha   (2007-05-13 01:06) [3]

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

---

← →
Anatoly Podgoretsky ©   (2007-05-13 01:11) [4]

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

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

---

← →
Германн ©   (2007-05-13 01:34) [5]

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

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

---

← →
Riply ©   (2007-05-13 01:41) [6]

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

---

← →
Германн ©   (2007-05-13 02:28) [7]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c