.NET (2)
Database (71)
Delphi IDE (90)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
Center a Form efficiently
2 comments. Current rating: 
(1 votes). Leave comments and/ or rate it.
To center a form after having changed its dimensions at run-time,
the poScreenCenter won't do it - it only works when the form is shown.
The following code shows 2 solutions how to handle this "problem":
 |  | |
// this works, but the form will be redrawn two times // (one redraw for each assignment) Form1.Left := (Screen.Width div 2) - (Form.Width div 2); Form1.Top := (Screen.Height div 2) - (Form.Height div 2); // this is better.. the form is redrawn only once Form1.SetBounds((Screen.Width - AForm.Width) div 2, (Screen.Height - AForm.Height) div 2, Form1.Width, Form1.Height); | ||
 |  |
Comments:
