请问如何使弹出窗体显示在主窗体的固定位置上？也就是说，在任何时侯弹出窗体相对于主窗体的位置都不变，弹出窗体有无模式有没有影响？

Question

请问如何使弹出窗体显示在主窗体的固定位置上？也就是说，在任何时侯弹出窗体相对于主窗体的位置都不变，弹出窗体有无模式有没有影响？

Answer 1

设置两个属性：
Position    :poMainFormCenter  --------在主窗体中央
BorderStyle :bsSingle          --------固定窗体大小

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Left:=form1.Left+200;
  form2.Top:=form1.Top+100;
  form2.Show;
end;