將多個TFrame控件添加到TScrollBox

我在這裏與Delphi做了一個小離線購物車應用程序，我被卡住了。我需要將框架插入滾動框（充當購物車項目行，我可以在其中刪除項目，添加數量等），從列表視圖中選擇產品。但我不能在那裏添加多個框架。將多個TFrame控件添加到TScrollBox

procedure TfrmMain.lvProductsSelectItem(Sender: TObject; Item: TListItem; 
    Selected: Boolean); 
var 
    cartRow: TFrame1; 
    i: Integer; 
    count: Integer; 
begin 

    cartRow := TFrame1.Create(nil); 
    cartRow.Edit1.Text := Item.Caption; 
    cartRowArr := TObjectList<TFrame1>.Create; 
    cartRowArr.Add(cartRow); 
    count := cartRowArr.Count; 
    for i := 0 to cartRowArr.Count - 1 do 
    begin 
    ScrollBox1.InsertControl(cartRowArr[i]); 
    end; 
end;

它總是在那裏的框架，不能正確的。如果我選擇產品我需要插入框架，如果我選擇另一個產品我需要插入其他框架。如果我選擇的產品在那裏銷售，那麼將數量提高一個。

任何幫助表示讚賞！

來源

2010-12-01 evilone

我懷疑你想在滾動框中的多個框架結束在彼此之下。您是否嘗試添加

cartRow.Align := alTop;

這將導致行自動將它們自己垂直排列在一起。

來源

2010-12-01 08:07:43

謝謝，它解決了這個問題！現在，當我選擇項目時，它將在滾動框中顯示兩行。我刪除了循環並更改了添加控件到ScrollBox1.InsertControl（cartRowArr.Last）的代碼; – evilone 2010-12-01 08:40:09

基於文檔，您應該設置控件的父屬性，而不是使用InsertControl。因此，代碼應該是：

for i := 0 to cartRowArr.Count - 1 do 
begin 
    cartRowArr[i].Parent := ScrollBox1; 
end;

http://docwiki.embarcadero.com/Libraries/XE3/en/Vcl.Controls.TWinControl.InsertControl

來源

2013-01-15 06:08:40 user998198

將多個TFrame控件添加到TScrollBox

回答

相關問題