delphi7中怎样调整程序适应不同的显示器尺寸？

来源：百度知道 编辑：UC知道 时间：2024/06/21 07:07:47
用delphi7编程，在手提（是14的宽屏）上，所有窗体最大化时正好全屏。把程序拿到别的电脑上时（显示器尺寸不一样）。窗体不能自动适应显示器的大小，窗体边缘上的按纽就看不到，
请问如何设计？
我试过重载一下WndProc不行的。
窗体最大化时应该能自动的识别显示器分辨率大小的。这也不行的。
特别是在宽屏上设计的程序到了CRT上，右边的就看不到了，不过有水平滑动条的。但这样程序美观性就不好了。
不知有什么好的解决方案？

窗体最大化时应该能自动的识别显示器分辨率大小的。你说的这种情况还没碰到过。如果实在要解决。我想就是重载一下WndProc就行了。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
protected
procedure WndProc(var Message: TMessage); override;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WndProc(var Message: TMessage);
begin
if Message.Msg = messages.WM_SYSCOMMAND then
begin
if (Message.WParam = windows.SC_MAXIMIZE) then
begin
with Self do
begin
Top := 0;
Left:= 0;
Width := Screen.Width;
Height := Screen.Height;
end;
end;
end;
inherited WndProc(Messag