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

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

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

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