德爾福：每個控件之間的TFlowPanel邊距

Question

我正在使用TFlowPanel，並且在運行時我正在創建可變數量的控件（在此示例中爲TButton）。 我想在每個控件之間創建一個邊距，但它還沒有工作。

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設置爲true，那麼在你的代碼，這將是：

LButton.AlignWithMargins := true;