delphi – 如何在单击按钮时动态地将组件添加到TScrollBox中?
发布时间:2020-12-15 04:01:47 所属栏目:大数据 来源:网络整理
导读:我创建了一个TScrollBox.我在Button按钮上动态添加了Label和Edit Box.为了设置组件的位置,我使用了组件的height,width,left,top属性. 但是当Scroll Bar在添加了5个组件后出现在屏幕上时,下一个组件位置会受到干扰.并且下一个组件不会以同步方式放在ScrollBox
我创建了一个TScrollBox.我在Button按钮上动态添加了Label和Edit Box.为了设置组件的位置,我使用了组件的height,width,left,top属性.
但是当Scroll Bar在添加了5个组件后出现在屏幕上时,下一个组件位置会受到干扰.并且下一个组件不会以同步方式放在ScrollBox上. 解决方法
放置在ScrollBox上的控件的Top坐标需要考虑已经发生的“滚动”量.如果你一次添加控件,这不是问题,因为ScrollBox没有机会“滚动”.
如果在有机会“滚动”后向ScrollBox添加控件,则需要考虑发生的垂直“滚动”量.这是一段代码示例,它将向ScrollBox1添加标签,将垂直滚动考虑在内,因此控件不会相互重叠.在这里,我使用表单的“Tag”属性来保存Top,以便添加下一个控件,我也使用Tag为标签生成唯一的名称(这样你就可以看到他们正确地进入ScrollBox坐标). procedure TForm31.Button1Click(Sender: TObject); var L: TLabel; begin L := TLabel.Create(Self); L.Caption := 'Test: ' + IntToStr(Tag); L.Parent := ScrollBox1; L.Top := Tag + ScrollBox1.VertScrollBar.Size - ScrollBox1.VertScrollBar.Position; Tag := Tag + L.Height; end; 我有时使用的另一种方法是跟踪最后添加的控件,并将新控件的坐标基于最后添加的控件的坐标: var LastControl: TControl; procedure TForm31.Button1Click(Sender: TObject); var L: TLabel; begin L := TLabel.Create(Self); L.Caption := 'Test: ' + IntToStr(Tag); L.Parent := ScrollBox1; if Assigned(LastControl) then L.Top := LastControl.Top + LastControl.Height else L.Top := 0; Tag := Tag + L.Height; LastControl := L; end; 然而另一种方法是找到最低控件并根据它的坐标添加控件: procedure TForm31.Button1Click(Sender: TObject); var L: TLabel; Bottom,TestBottom: Integer; i: Integer; begin // Find "Bottom" Bottom := 0; for i:=0 to ScrollBox1.ControlCount-1 do with ScrollBox1.Controls[i] do begin TestBottom := Top + Height; if TestBottom > Bottom then Bottom := TestBottom; end; L := TLabel.Create(Self); L.Caption := 'Test: ' + IntToStr(Tag); L.Parent := ScrollBox1; L.Top := Bottom; Tag := Tag + L.Height; end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- pyCharm报错"your evaluation license has expired, py
- Perl的. Regexp只工作一次
- perl – 如何使用Excel :: Writer :: XLSX设置工作簿范围的
- java – 在Websphere 8.5上使用Spring 3.x时已经提交的响应
- BigDecimal的舍入模式
- 3.1的Widget有新玩法啦
- 黑莓手机屏幕发展历程对比 blackberry 各型号屏幕大小
- Delphi实现WebService带身份认证的数据传输
- delphi – Visual C是开始可视化编程的好选择吗?
- Lua 5.3 源码分析(六) 字符串 Table