Delphi元素对齐 – 中心

发布时间：2020-12-15 09:07:41 所属栏目：大数据来源：网络整理

导读：似乎对齐属性非常有效,但是可以对齐元素,因此如果所有元素都小于容器大小,那么面板上的所有元素都将对齐到彼此底部的所有元素？像顶部中心的东西. 像这样的东西：或至少水平,垂直,他们可以100％. 解决方法将元素放入自己的容器中,例如TPanel或TFrame,它是

似乎对齐属性非常有效,但是可以对齐元素,因此如果所有元素都小于容器大小,那么面板上的所有元素都将对齐到彼此底部的所有元素？像顶部中心的东西.

像这样的东西：

或至少水平,垂直,他们可以100％.

解决方法

将元素放入自己的容器中,例如TPanel或TFrame,它是主容器的子容器.将子容器的Align属性设置为alCustom,并使用父容器的OnAlignPosition事件使子容器保持居中：

// Panel1 is the Parent container for the child panel...
procedure TMyForm.Panel1AlignPosition(Sender: TWinControl; Control: TControl;
  var NewLeft,NewTop,NewWidth,NewHeight: Integer; var AlignRect: TRect;
  AlignInfo: TAlignInfo);
begin
  if Control = ChildPanel then
  begin
    NewLeft := AlignRect.Left + ((AlignRect.Width - Control.Width) div 2);
    NewTop := AlignRect.Top + ((AlignRect.Height - Control.Height) div 2);
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!