标签：
刚开始代码如下：
procedure TForm1.Button1Click(Sender: TObject); var Panel: TPanel; begin Panel := TPanel.Create(Form1); Panel.Name := ‘pnlPreVideo‘; Panel.Parent := Form1; Panel.OnClick := Panel1Click; MoveWindow(Panel.Handle, 10, 10, 100, 100, True); end; procedure TForm1.Panel1Click(Sender: TObject); begin if (Sender as TPanel).Name =‘pnlPreVideo‘ then (Sender as TPanel).Color := clGreen; end;
单击时，颜色不变，问网友，原来是一个BUG，更正后代码如下：
procedure TForm1.Button1Click(Sender: TObject); var Panel: TPanel; begin Panel := TPanel.Create(Form1); Panel.Name := ‘pnlPreVideo‘; Panel.ParentBackground := False; Panel.Parent := Form1; Panel.OnClick := Panel1Click; MoveWindow(Panel.Handle, 10, 10, 100, 100, True); end; procedure TForm1.Panel1Click(Sender: TObject); begin if (Sender as TPanel).Name =‘pnlPreVideo‘ then (Sender as TPanel).Color := clGreen; end;
http://www.cnblogs.com/jxgxy/p/3248408.html
Delphi中动态创建的Panel无法改变颜色的解决办法（要把Panel的ParentBackground设为False）
标签：
原文地址：http://www.cnblogs.com/findumars/p/4964841.html
