通过设置窗体最大和最小尺寸防止控件显示比例失调现象.txt

来自「创建异形窗体可以创建出各种各样的异形窗体」· 文本 代码 · 共 31 行

//在窗体的Private节中作如下声明

　procedure WMGetMinMaxInfo(var MSG: Tmessage); message WM_GetMinMaxInfo;

　//在实现部分写如下代码：

　procedure TForm1.WMGetMinMaxInfo(var MSG: Tmessage);

　　Begin

　　　inherited;
　　with PMinMaxInfo(MSG.lparam)^ do
　　begin

　　　with ptMinTrackSize do

　　begin

　　　X := 640;
　　　Y := 480;
　　end;

　　with ptMaxTrackSize do

　　begin
　　　X := 800;
　　　Y := 600;
　　end;
　end;
end;
把窗体最大化关闭这样效果比较好。