Delphi: TFlowPanel lề giữa mỗi điều khiển

Question

Tôi đang sử dụng TFlowPanel và trong thời gian chạy i am tạo một số biến điều khiển (trong ví dụ này TButton) trên đó. Tôi muốn tạo một lề giữa mỗi điều khiển, nhưng nó vẫn chưa hoạt động.

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; 

Bất cứ ý tưởng tại sao?

Kính trọng và cảm ơn, Dennis

Answer 1

Bạn cần phải thiết lập AlignWithMargins true, vì vậy trong mã của bạn đó sẽ là:

LButton.AlignWithMargins := true;