向TScrollBox添加多个TFrame控件
向TScrollBox添加多个TFrame控件
提问于 2010-12-01 15:56:48
我正在用Delphi做一个小的离线购物车应用程序，我被卡住了。我需要插入框架到滚动框(作为购物车项目行，在那里我可以删除项目，添加数量等)的产品选择从列表视图。但我不能在那里添加多个帧。
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;它总是在那里的框架上，并且不能正确地进行。如果我选择产品，我需要插入框架，如果我选择另一个产品，我需要插入一个框架。如果我选择产品已经在那里，那么将数量增加一。
感谢任何人的帮助！
回答 2
Stack Overflow用户
回答已采纳
发布于 2010-12-01 16:07:43
我怀疑您希望滚动框中的多个帧在彼此下方结束。你有没有试过添加
cartRow.Align := alTop;这将导致行自动地彼此垂直对齐。
Stack Overflow用户
发布于 2013-01-15 14:08:40
根据文档，您应该设置控件的parent属性，而不是使用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
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/4322271
复制相关文章
相似问题
腾讯云开发者
