2012-03-18 4 views
1

Я объявляю панель ToolStatusPanel2 во время разработки и хочу добавить 10 панелей, которые представляют статус, отображаемый цветом.Как создавать динамически созданные панели?

Теперь моя главная форма объявляет

ToolOnlineStatusPanel : Array[0..Pred(NUM_TOOLS)] of TPanel; 

и мой FormCreate хотят установить их по умолчанию цвета для clRed по

for i:= 0 to Pred(NUM_TOOLS) do 
begin 
    ToolOnlineStatusPanel[i] := TPanel.Create(ToolStatusPanel2); 
    ToolOnlineStatusPanel[i].Parent := ToolStatusPanel2; 
    ToolOnlineStatusPanel[i].Height := 16; 
    ToolOnlineStatusPanel[i].Width := 16; 
    ToolOnlineStatusPanel[i].Top := 8 + (i * (16 + 8)); 
    ToolOnlineStatusPanel[i].Left := 8; 
    ToolOnlineStatusPanel[i].Color := clRed; 
end; 

но эти дочерние панели всегда имеют один и тот же Коло (и) г как их родитель, даже если я изменю это - никогда не красное.

Очевидно, что я пропускаю что-то довольно простое. Что это? Thanks

ответ

Смежные вопросы