Centrar los formularios de una aplicación

[dec]

Este trozo de programa, puede servir para cuando un usuario cambia la posición del formulario, sale o cierra el formulario y vuelve a llamarlo más tarde, y tu quieres que siempre esté centrado cuando aparezca; si se crea ese formulario cada vez que lo llamo no sería necesario el truco ya que en el formualrio le coloco la propiedad position a screen center, pero como sólo lo creo una vez y lo oculto, al mostrarlo resulta útil.

También puede servir para que con un botón se puedan centrar todos los formularios del programa.......y sirve para aprender o recordar que existe algo llamado "Screen" que nos puede servir, muchas persona no lo conocen o simplemente lo olvidan y cuando necesitan hacer algo así dan muchas vueltas.


Var
I : Integer;
Begin
With Screen do
for I := 0 to FormCount-1 do
Begin
Forms[i].Top:=trunc((Height/2)-(Forms[0].Height/2));
Forms[i].Left:=Trunc((Width/2)-(Forms[0].Width/2));
end;
end;