Question

好的，我需要根据布局尺寸调整控件的大小。我还需要在布局尺寸发生变化时调整大小（例如将设备从轮廓转向横向）

我的假设是你只是检查设备的尺寸并相应调整

e.g。

if ClientHeight > ClientWidth then
    fHeader.Height:= ClientHeight Div 6
   else
    fHeader.Height:= ClientHeight Div 8;

但是，放置这个的最佳位置在哪里？

我在调整大小之前和调整大小后调整了Resize方法。它似乎不起作用！

嗯，它适用于表单的初始激活，但是当表单调整大小时，它不会。在IDE中，我甚至必须点击RELOAD按钮才能使其工作。

下面是表单上有两个组件的示例。 TW3HeaderControl与表单顶部对齐，TW3ListBox与客户端对齐。我想调整TW3HeaderControl的高度，不论它是在Profile还是Landscape中

e.g。

unit Form1;


interface


uses 
  SmartCL.System, SmartCL.Graphics, SmartCL.Components, SmartCL.Forms, 
  SmartCL.Fonts, SmartCL.Borders, SmartCL.Application, SmartCL.Layout,
  SmartCL.Controls;


type
  TForm1 = class(TW3Form)
  private
    {$I 'Form1:intf'}
    fLayout: TLayout;
    fHeader: TW3HeaderControl;
    fList: TW3ListBox;
  protected
    procedure InitializeForm; override;
    procedure InitializeObject; override;
    procedure Resize; override;
  end;


implementation


{ TForm1 }

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(fHeader), Layout.Client(fList)]);
end;


procedure TForm1.InitializeObject;
begin
  inherited;
  {$I 'Form1:impl'}
  fHeader:= TW3HeaderControl.Create(self);
  fList:= TW3ListBox.Create(self);
end;


procedure TForm1.Resize;
begin
  inherited;
  if assigned(FLayout) then
  begin
   fLayout.Resize(self);
    if ClientHeight > ClientWidth then
    fHeader.Height:= ClientHeight Div 6
   else
    fHeader.Height:= ClientHeight Div 8;
  end;
end;


initialization
  Forms.RegisterForm({$I %FILE%}, TForm1);
end.

我甚至尝试重写“FormActivated”并将其放在那里并调用Resize。

是什么给出了？

UPDATE !!!!!

而不是在InitializeForm中分配布局

e.g。

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 6),fHeader), Layout.Client(fList)]);
end;

在Resize方法中指定它而不是

e.g。

procedure TForm1.Resize;
begin
  inherited;
   if ClientWidth > ClientHeight then
    fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 6),fHeader), Layout.Client(fList)])
   else
    fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 8),fHeader), Layout.Client(fList)]);
   fLayout.Resize(self);

end;

更新＃2

并且，如果我在表单上添加另一个控件，那么还有另一个问题：（

如果我将大小设置为静态值，则效果很好

procedure TForm1.InitializeObject;
begin
  inherited;
  {$I 'Form1:impl'}


  fHeader:= TW3HeaderControl.Create(self);
  fHeader.Height:= 50;  //******************************
  fHeader.BackButton.Visible:= False;
  fHeader.Title.Caption:= 'Menu';
  fHeader.Title.AlignText:= taCenter;


  fFooter:= TW3HeaderControl.Create(self);
  fFooter.Height:= 50; //******************************
  fFooter.BackButton.Visible:= False;
  fFooter.Title.Caption:= 'Copyright (C) 2016';
  fFooter.Title.AlignText:= taCenter;


  fList:= TW3ListBox.Create(self);
end;

这是有效的

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(fHeader),
                           Layout.Bottom(fFooter),
                           Layout.Client(fList)]);
end;

但是，如果我在运行时根据尺寸动态设置高度，那么它不会

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(Layout.Height(ClientHeight Div 6), fHeader),
                           Layout.Bottom(Layout.Height(ClientHeight Div 6),fFooter),
                           Layout.Client(fList)]);
end;

Answer 1

这有效

procedure TForm1.InitializeForm;
begin
  inherited;
  // this is a good place to initialize components
  fLayout:= Layout.Client([Layout.Top(fHeader),
                           Layout.Bottom(fFooter),
                           Layout.Client(fList)]);
end;

Answer 2

浏览器对我们施加了一些规则，从对象pascal的角度来看，这似乎很奇怪。 InitializeForm与InitializeObject之间的区别就是其中之一。正如“形式”的怪异一样。

John指出，InitializeForm是个好地方。在构造JS对象并将DOM元素注入对象模型之后调用该方法。这两个不是一回事，这可能有点令人困惑。此外，如果在调用createElement（）或构造函数完成后创建元素，则由浏览器决定。因此，我们必须引入一些新的过程来处理这个问题。

您可能希望更接近地调查TApplication。您将找到以下内容：TApplication - ＆gt;显示 - ＆gt;视图。表单在“view”容器中创建。无论何时更改方向或表单大小，最快的通知方式是通过Application.Display.View.OnReSize（）事件。

根据布局尺寸调整控件大小？

2 个答案: