窗体中放有timage控件,根据timage中图片的尺寸自动调整大小 参考实现: form.position :=poMainFormCenter Form1.Left := (Screen.Width - Form1.Width) div 2; Form1.Top := (Screen.Height - Form1.Height) div 2;
form.position :=poMainFormCenter