如何在Lazarus中为TCustomControl指定子填充/间隔？
如何在Lazarus中为TCustomControl指定子填充/间隔？
提问于 2015-11-28 20:08:18
在Delphi中，我可以使用Padding来指定任何子控件与我的自定义控件之间的间距。例如，如果自定义控件在顶部有一个标题部分，并且任何对齐的子控件都将出现在标题部分下，这就很有用，它基本上确保子控件不能在您不希望它们位于的控件的部分中被定位或重叠。
我正试图在拉撒路实现这一点，但由于没有Padding属性，我需要一些其他的选择。我发现的最接近的东西是ChildSizing，但我看不到实现它的明显方法。
请参阅此附图：
TMemo是我的自定义控件的子控件，实现间隔的方式如下所示：
constructor TMyControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Self.ControlStyle := Self.ControlStyle + [csAcceptsControls];
Self.BorderStyle := bsSingle;
Self.Height := 210;
Self.Width := 320;
Self.ChildSizing.TopBottomSpacing := 10; // This line adds the spacing
end;但是，您可以从附加的图像中看到，在控件的顶部和底部有间距，我希望在属性名TopBottomSpacing的情况下这样做。
似乎没有一个显而易见的属性可以独立地处理在顶部、底部、左侧或右侧添加间距：
在拉撒路，我如何独立地指定孩子的间隔？
我只能看到TopBottomSpacing和LeftRightSpacing，它们有在相反的边增加间距的不需要的效果，我只想在顶部添加填充/间距。
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-11-28 22:31:13
若要指定可以锚定子控件的区域，请重写以下AdjustClientRect方法：
procedure TMyControl.AdjustClientRect(var ARect: TRect);
begin
inherited AdjustClientRect(ARect);
ARect := Rect(
ARect.Left,
ARect.Top + Canvas.TextHeight('A'), // Make place for control's header
ARect.Right,
ARect.Bottom);
// Or just:
// ARect.Top += Canvas.TextHeight('A');
end;还请记住来自开发人员的警告：
procedure TWinControl.AdjustClientRect(var ARect: TRect);
begin
// Can be overriden.
// It's called often, so don't put expensive code here, or cache the result
end;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/33975909
复制相关文章
相似问题
腾讯云开发者
