Delphi 2009 - tạo ra một TPanel tại thời gian chạy và thay đổi màu sắc của nó

Question

có một vấn đề lạ: Tôi tạo ra một TPanele tại thời gian chạy và thay đổi màu sắc của nó - tuy nhiên, màu sắc vẫn là clBtnFace.

Đây là các mã:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    pnlTest : TPanel; 
begin 
    pnlTest := TPanel.Create(Form1); 
    pnlTest.Parent := Form1; 
    pnlTest.Width := 100; 
    pnlTest.Height := 100; 
    pnlTest.Color := clRed; 
end; 

Bất kỳ ý tưởng? Cảm ơn!

Answer 1

Khi bạn muốn có bảng màu dưới một hệ điều hành theo chủ đề, bạn phải đặt ParentBackground thành False.

Answer 2

Hãy thử :-) này

procedure TForm1.Button1Click(Sender: TObject); 
var 
    pnlTest : TPanel; 
begin 
    pnlTest := TPanel.Create(Form1); 
    pnlTest.Parent := Form1; 
    pnlTest.Width := 100; 
    pnlTest.Height := 100; 
    pnlTest.ParentBackground := false; 
    pnlTest.Color := clRed; 
end;