Цитата:
|
Сообщение от mpdasa
Как здесь сделать цикл? //цвет один для всех, компонент только label
Код:
procedure TForm1.FormCreate(Sender: TObject);
...
begin
SetComponentBorder(Label1, 9639167);
SetComponentBorder(Label2, 9639167);
SetComponentBorder(Label3, 9639167);
SetComponentBorder(Label4, 9639167);
...
|
Тоже самое, только вместо
Код:
FindComponent('Edit'+IntToStr(i)) as TEdit
пишешь
Код:
FindComponent('Label'+IntToStr(i)) as TLabel