如何让form只能居中显示

Question

就是在屏幕中间显示啊

Answer 1

form有一个position属性的(不太记得了,一年多没用了:)),你可以设置为desktopcenter

Answer 2

设置position的属性为poScreenCenter。

Answer 3

//...
  private
    procedure WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST;
  end;
//...
implementation
//...
procedure TForm1.WMNCHITTEST(var Msg: TWMNCHitTest);
begin
  inherited;
  if (HTCAPTION = Msg.Result) then msg.Result := HTCLIENT;
end;procedure TForm1.FormResize(Sender: TObject);
begin
  Left := (Screen.Width - Width) div 2;
  Top := (Screen.Height - Height) div 2;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  FormResize(Sender);
end;
//...

Answer 4

设置position的属性为poScreenCenter。
如果，窗体拖动后想居中，则自己写程序 设置  Left := (Screen.Width - Width) div 2;
  Top := (Screen.Height - Height) div 2;

Answer 5

设置position的属性为poScreenCenter。

Answer 6

设置position的属性为poScreenCenter。

Answer 7

设置position的属性为poScreenCenter。
如果，窗体拖动后想居中，则自己写程序 设置  Left := (Screen.Width - Width) div 2;
  Top := (Screen.Height - Height) div 2;