📄 通过设置窗体最大和最小尺寸防止控件显示比例失调现象.txt
字号:
//在窗体的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;
把窗体最大化关闭这样效果比较好。
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -