该软件是基于Delphi 7构建的。
在我的XP机器上，窗体会按照我期望的方式进行调整大小。然而，在两台Vista机器上，我有一些组件的锚点设置为[akLeft，akTop，akRight，akBottom]，但是当我调整窗体大小时，这些组件不会随着窗体一起拉伸，留下右边缘和底部的空白。在XP机器上，组件会正确地随着窗体一起拉伸。
因此，似乎Vista机器正在忽略锚定属性。有什么想法是什么原因导致这种情况并如何解决？
重要更新（弗朗索瓦）：
我们的D2007应用程序在x64 Windows上也出现了同样的问题。
Andreas的答案确实是解决方法。
所以这与D7或Vista无关。
尝试使用“Align”（alClient）而不是锚点。由于您正在使用所有的锚点，这样做更有意义。
在 Delphi 4 引入锚点之前，我们通过动态调整组件大小来实现相同的效果。您可以在表单的 onresize 事件中轻松移动 / 调整组件。
将表单的 doublebuffered 属性设置为 true 可以通过缓冲 paint 方法来减少闪烁。我记得我们以前也不得不自己实现这个功能！
tpanel（默认情况下，Align = alNone），并将Unit1替换为下面的代码。运行时，您将看到4个黄色面板围绕最初添加的面板，并且中央面板将随着表单的大小调整而调整大小（就像所有锚点都是true一样）。unit Unit1;
interface
uses
Windows, Classes, Controls, Forms, ExtCtrls, Graphics;
type
TPanelPos = (ppLeft, ppRight, ppTop, ppBottom);
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
Panels : array[TPanelPos] of tpanel;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
PanelPos : TPanelPos;
begin
for PanelPos := ppLeft to ppBottom do
begin
Panels[PanelPos] := tpanel.Create(Form1);
Panels[PanelPos].Parent := Form1;
Panels[PanelPos].Color := clYellow;
case PanelPos of
ppLeft :
begin
Panels[PanelPos].Align := alLeft;
Panels[PanelPos].Width := Panel1.Left - 1;
end;
ppRight :
begin
Panels[PanelPos].Align := alRight;
Panels[PanelPos].Width := Form1.Width - Panel1.Left - Panel1.Width;
end;
ppTop :
begin
Panels[PanelPos].Align := alTop;
Panels[PanelPos].Height := Panel1.Top - 1;
end;
ppBottom :
begin
Panels[PanelPos].Align := alBottom;
Panels[PanelPos].Height := Form1.Height - Panel1.Top - Panel1.Height;
end;
end;
Panel1.Align := alClient;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
PanelPos : TPanelPos;
begin
for PanelPos := ppLeft to ppBottom do
Panels[PanelPos].Free;
end;
end.
看起来这是一个相当古老的问题，无论如何，在宇宙中只有一种解决此问题的方法：使用旧风格的 Windows 编程大小调整方法，使用 API 拦截 WM_SIZE 和 WM_SIZING，这是不会出错的方法，并且将在您所知道的每个 Windows 上运行。
当然，这意味着您必须主要使用 GetClientRect() 来确定宽度和高度，然后根据这些值调整控件的大小，当然这可能听起来像点火航天器一样，但这是最好的方法。
否则，您可以在调整大小的过程中执行更实际和快速的操作，例如：
Control1.Left := Control2.Left + (buttonControl.Width div 2) - (buttonControl3.Width div 2);
//for example widths
Control4.Width := (Control.Width * 4) + (Control.Left * 8) + 54 ;
我可以在任何版本的Windows上进行这种编码和函数操作。
你只需要屏幕分辨率上的一些数值作为参考，就可以做出类似这样的操作：
iCXSCREEN := GetSystemMetrics(SM_CXSCREEN);
iCYSCREEN := GetSystemMetrics(SM_CYSCREEN);
if ((iCXSCREEN = 1280) and (iCYSCREEN = 720)) or ((iCXSCREEN = 1280) and (iCYSCREEN = 700)) or ((iCXSCREEN = 1280) and (iCYSCREEN = 600)) then begin
// blah blah
end;