最基本的问题form的show属性

Question

1.怎么让一个form自动的在屏幕的中间？2.在一个form中怎么样调用另一个form2,而form2不关的话没法用form

Answer 1

把form.postion属性改成ScreenCenter就行了
uses unit2;var 
 form2:tform2;
begin
  form2:=tform2.create(self);
  form2.showmodal;
end;

Answer 2

1.Form.Postion设置成ScreenCenter;
2.
uses unit2;var 
  form2:tform2;
begin
  form2:=tform2.create(self);
  form2.showmodal;
  freeandnil(form2);
end;

Answer 3

self.top:=(screen.WorkAreaHeight div 2) -(self.Height div 2);
self.Left:=(screen.WorkAreawidth div 2) -(self.Width div 2);