डेल्फी: प्रत्येक नियंत्रण

Question

के बीच TFlowPanel मार्जिन मैं TFlowPanel उपयोग कर रहा हूँ और रनटाइम पर मैं एक चर उस पर (इस उदाहरण TButton में) नियंत्रण की संख्या बनाने रहा हूँ। मैं प्रत्येक नियंत्रण के बीच एक मार्जिन बनाना चाहते हैं, लेकिन यह अभी तक काम does not।

procedure TForm1.FormCreate(Sender: TObject); 
var 
    i: Integer; 
    LButton: TButton; 
begin 
    for i := 0 to 10 do 
    begin 
    LButton := TButton.Create(flwpnl1); // flwpnl1 is the TFlowPanel 
    LButton.Parent := flwpnl1; 
    LButton.Height := 20; 
    LButton.Caption := Format('Status%d', [i]); 
    LButton.Margins.Left := 20; 
    LButton.Margins.Top := 20; 
    LButton.Margins.Right := 20; 
    LButton.Margins.Bottom := 20; 
    end; 
end; 

कोई भी विचार क्यों?

सादर और धन्यवाद, डेनिस

Answer 1

आप सत्य पर AlignWithMargins स्थापित करने के लिए तो अपने कोड में है कि हो सकता है की जरूरत है:

LButton.AlignWithMargins := true;