windows - 控制 Delphi 2006 中新打开窗口的位置 (x,y)

Question

我正在尝试控制我的程序打开新窗口的位置的坐标，因为目前它们是相互重叠打开的。有没有人有如何执行此操作的工作示例？

Answer 1

您始终可以手动设置 .Top 和 .Left 属性，如下所示:

procedure TForm1.Button1Click(Sender: TObject);
var
  frm : TForm;
begin
  frm := TForm.Create(Self);
  frm.Left := 100;  //replace with some integer variable
  frm.Top := 100;  //replace with some integer variable
  frm.Show;
end;

但是，Windows 有一个默认的窗口放置算法，试图保持每个窗口的标题栏可见。在我的电脑上，重复点击这个 Button1 程序会出现漂亮的堆叠窗口:

procedure TForm1.Button1Click(Sender: TObject);
var
  frm : TForm;
begin
  frm := TForm.Create(Self);
  frm.Show;
end;

此外，不要忘记您可以使用内置的 TPosition 位置集:

procedure TForm1.Button1Click(Sender: TObject);
var
  frm : TForm;
begin
  frm := TForm.Create(Self);
  frm.Position := poOwnerFormCenter;
  {
  Other possible values:
    TPosition = (poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly,
      poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter);

  //}
  frm.Show;
end;