Question

双击delphi窗体标题栏发生什么事件

Answer 1

方法1：设置TForm.BorderStyle := bsDialog
方法2：设置TForm.Constraints.MaxHeight、TForm.Constraints.MaxWidth、TForm.Constraints.MinHeight、TForm.Constraints.MinWidth。
方法3：截获WM_GetMinMaxInfo消息。

Delphi(Pascal) code
procedure WmGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GetMinMaxInfo;）
procedure TForm1.WmGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
Message.MinMaxInfo.ptMaxSize.X := Screen.WorkAreaWidth;
Message.MinMaxInfo.ptMaxSize.Y := Screen.WorkAreaHeight;
//...
end;