2012-03-18 16 views
1

設計時にパネルToolStatusPanel2を宣言し、色で示されるステータスを表す10個のパネルを追加したいとします。動的に作成されたパネルをどのように色付けするのですか?

さて、私のメインフォームが

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

を宣言し、私の​​FormCreate

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; 

によってclRedに色をデフォルトにして設定したいが、これらの子パネルが常に同じCOLO(U)Rを持っていますたとえ私がそれを変えたとしても、彼らの親として、決して赤ではありません。

明らかに私はかなり単純なものを見落としています。それは何ですか?ありがとう

答えて

5

ParentBackgroundをFalseに設定します。

+3

+1と答え。私はあなたを愛している私たちの赤ん坊をしたい。 – Mawg

関連する問題