Hiermit kann man ein beliebiges visuelles Objekt mittig plazieren, indem man in OnResize die Prozedur ObjektMittigPlazieren einfügt.
Delphi-Quellcode:
procedure ObjektMittigPlazieren(Objekt: TControl; Formular: TForm);
begin
Objekt.Top := (Formular.Height div 2) - (Objekt.Height div 2);
Objekt.left := (Formular.Width div 2) - (Objekt.Width div 2);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
ObjektMittigPlazieren(Button1,Form1);
end;