Question

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

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

Answer 1

窗体最大化时应该能自动的识别显示器分辨率大小的。你说的这种情况还没碰到过。如果实在要解决。我想就是重载一下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(Message);
end;

end.

Answer 2

关注中

Answer 3

控件的Anchors属性，可以自由设置窗体大小不同时的控件对齐方式，比如设置为[akTop,akRight]这个就可以达到从右向左自动调整的功能啦。
其他的，自己试试看就知道了

Answer 4

重新改变一下窗体中控件的布局,让每个控件根据窗体的大小自动调整自己的大小和位置.