Я объявляю панель 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
+1 и ответ. Я люблю тебя и хочу, чтобы наши дети. – Mawg