[delphi-users:5143] パネルに色を表示させるには？

[nagao]

nagaoです。いつも教えて頂きありがとうございます。

Windows10のパソコンにおいて、Delph 10.1 Berlinで　下記の
コードを実施すると、パネルは所定の位置に所定のサイズで
表示されるのですが、色がCBtnFaceのままで赤色になりません。
どうしたら赤色に変わりますか？
procedure TForm1.Button1Click(Sender: TObject);
var
apanel:tpanel;
begin
apanel:=tpanel.Create(Form1);
apanel.parent:=Form1;
apanel.left:=10;
apanel.top:=10;
apanel.width:=100;
apanel.height:=100;
apanel.visible:=true;
apanel.color:=clred;
apanel.refresh;
end;



MLホームページ: https://www.freeml.com/delphi-users

----------------------------------------------------------------------
スマホアプリ版で100万ダウンロード突破の
「キャプテン翼ZERO～決めろ！ミラクルシュート～」
HTML5ゲームプラットフォーム「ゲソてん byGMO」にて、
PCブラウザ版を好評配信中！
https://gesoten.com/games/genre/sports/tsubasa-zero
------------------------------------------------------[freeml byGMO]--

あなたの街のチラシがいつでも無料で見放題！
チラシをクリックしてチラシが拡大されたらポイントゲット♪
まずはかんたん登録♪　-ポイントタウン-
https://www.pointtown.com/ptu/rd.cgi?cid=8912
----------------------------------------------------------------------

[イチロー]

nagao <delphi...@freeml.com>さん：

apanel.ParentBackground := false;

この１行を追加すれば赤に変わりますよ。

[nagao]

イチローさん、nagaoです。

赤色に変わりました。
ありがとうございました。