Delphi 控件与窗体之间的位置转换问题

 设置两个窗体之间的相对位置，分成两种办法：

 

第一种：简单的办法，设置窗体的属性Position，里面有多个选项：

               poDesigned：窗体运行时显示的位置和大小与设计相同；

               poDefault：在运行时自动设置窗口的大小与位置；

               poDefaultPosOnly：在运行时自动设置窗口的大小与位置，窗口尺寸有窗体的Height和Width属性参数确定；

               poDefaultSizeOnly：在运行时自动设置窗口的大小与位置，窗口尺寸有窗体的Left和Top属性参数确定；

               poScreenCenter：窗口尺寸有窗体的Height和Width属性参数确定，但是窗口位于屏幕的中央；

               poDesktopCenter：窗口尺寸有窗体的Height和Width属性参数确定，但是窗口位于桌面的中央；

               poMainFormCenter：窗口尺寸有窗体的Height和Width属性参数确定，但是窗口位于主窗体的中央；,

               poOwnerFormCenter窗口尺寸有窗体的Height和Width属性参数确定，但是窗口位于父窗体的中央；

              注意：在设定之后，无论设置Self.Top,Self.Left为什么值，最后窗体都会自动根据Position自动调整窗体的位置

（form1.Position:=poScreenCenter;），所以需要第二种方法。

           在此，可以设置为：poMainFormCenter 或者poOwnerFormCenter。

 

第二种：通过代码设置窗体的位置：

               窗体控件的坐标是相对于窗体而言的，而窗体的位置是相对于屏幕而言的。读取第一个

窗体中控件的位置给第二个窗体使用，就到导致第二个窗体的位置不准确。所以，需要转换函数：

                 Function ClientToScreen(const Point:TPoint):TPoint;//将窗体指标转换成屏幕指标。

                 Function ScreenToClient(const Point:TPoint):TPoint;//将屏幕指标转换成窗体指标。

 

Uses Types;

 

procedure TMainForm.btn1Click(Sender: TObject);

var

  FindCaseForm : TFindCaseForm;

  Point : TPoint;

begin

  FindCaseForm := TFindCaseForm.Create(nil);

  Point.X :=  btn1.Left + btn1.width ; 

  Point.Y := btn1.Top + btn1.height;

  Point := MainForm.ClientToScreen(point);

  FindCaseForm.Left :=  Point.X;

  FindCaseForm.Top :=  Point.Y;

  FindCaseForm.ShowModal;

  FreeAndNil(FindCaseForm);

end;