如何让form只能居中显示

[ljbh2005]

就是在屏幕中间显示啊

[lEFTmOON]

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

[kaidu]

设置position的属性为poScreenCenter。

[王集鹄]

//...
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;
//...

[飞天揽月]

设置position的属性为poScreenCenter。




如果，窗体拖动后想居中，则自己写程序 设置

Left := (Screen.Width - Width) div 2;
Top := (Screen.Height - Height) div 2;

[net_ha_ha]

设置position的属性为poScreenCenter。




如果，窗体拖动后想居中，则自己写程序 设置

Left := (Screen.Width - Width) div 2;
Top := (Screen.Height - Height) div 2;

[F555666]

设置position的属性为poScreenCenter。

[wtg476]

设置position的属性为poScreenCenter。

[wsqwang884]

理解。

[希望的梦想]

动态设置的还是好一些