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を持っていますたとえ私がそれを変えたとしても、彼らの親として、決して赤ではありません。
明らかに私はかなり単純なものを見落としています。それは何ですか?ありがとう
+1と答え。私はあなたを愛している私たちの赤ん坊をしたい。 – Mawg