从最大化状态最小化时读取实际表单尺寸

Question

不知道你有没有注意到，但是如果你最大化一个TForm 然后最小化它，如果你读取它的宽度和高度（在这个最小化状态下），你会得到表单在最大化之前的值...在我看来，这是错误的。

当我的表单最小化时，有时它需要根据表单的ClientWidth 和ClientHeight 重新排列控件。因此，如果最后一个 Form 尺寸以及它从最小化返回的尺寸是最大化状态下的尺寸，如果我得到规范化 Form 的 Width 和 Height，我的控件将被错误地排列。

你知道当窗体从最大化状态最小化时，我如何读取真正的ClientWidth 和ClientHeight 吗？

Answer 1

我用这个解决方法解决了这个问题：在窗口尺寸发生变化时存储窗口尺寸，在窗口尺寸最小化时跳过。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    RealClientW, RealClientH: Integer;
    procedure WMWindowPosChanged(var Msg: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMainForm.WMWindowPosChanged(var Msg: TWMWindowPosChanged);
begin
 inherited;
 if not IsIconic(Handle) then begin
  RealClientW:= ClientWidth;
  RealClientH:= ClientHeight;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 caption:= IntToStr(RealClientW) + ' x ' + IntToStr(RealClientH);
end;

end.