डेल्फी 200 9 - रनटाइम पर एक टीपीनल बनाएं और उसका रंग बदलें

Question

एक अजीब समस्या है: मैं रनटाइम पर एक टीपेनेल बनाता हूं और इसका रंग बदलता हूं - हालांकि, रंग अभी भी clbtnFace है।

यहाँ 'कोड:

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; 

कोई भी विचार? धन्यवाद!

Answer 1

जब आप थीम वाले ओएस के तहत रंगीन पैनल रखना चाहते हैं तो आपको ParentBackground को गलत पर सेट करना होगा।

Answer 2

इस :-)

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;