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

vopros po TPanel on RUN-TIME   Найти похожие ветки 

← →
spogi   (2003-03-26 22:58) [0]

Привет всем! Вот такой исходник. А дальше вопрос...

...
var
P: TPanel;
...
implementation
...
procedure TForm1.FormCreate(Sender: TObject);
var //P: TPanel;
i,j,n: Integer;
begin
Randomize; n:=0;
For i:=0 to 6 do begin
For j:=0 to 10 do begin
P:=TPanel.Create(Self); P.Parent:=Panel1; P.BevelOuter:=bvNone;
P.Width:=50; P.Height:=50; P.Left:=j*50; P.Top:=i*50;
P.Color:=Random($FFFFFF); Inc(n); P.Caption:=IntToStr(n);
end;
end;
end;

Как видно создается много разноцветных панелей. Теперь я хочу во время работы обратится к ним по одному или, на все сразу, например в Timer1Timer поменять цвета, если получится, то должно быть ЦветоМузыка... Я понимаю в процессе разработки не можно ловить то, что создается в процессе выполнения... Но как создать Timer (не сам компонент, это ясно, а его процедуру), который будет работать и делать то, что я прикажу после выполнения?

---

← →
Palladin ©   (2003-03-26 23:15) [1]

очевидно...

procedure TForm1.Timer1OnTimer(Sender:TObject);
var
i:integer;
begin
for i:=0 to ComponentsCount-1 do
if Components[i] is TPanel then
(Components[i] as TPanel).Color:=Random($FFFFFF);
end;

что то типа этого...
если я конечно правильно понял, то что спрашивалось...

---

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

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



Память: 0.45 MB
Время: 0.027 c