hi,
binde die procedure im public abschnitt dienes formulars ein:
Delphi-Quellcode:
procedure CenterForm(f: TForm);
//...
procedure TForm1.CenterForm(f: TForm);
begin
f.Left:= (Screen.Width - f.Width) div 2;
f.Top:= (Screen.Height - f.Height) div 2;
end;
dann kannst du die procedure in jeder anderen
unit aufrufen, in der dein hauptformular in der uses liste steht:
form1.centerform(form2);
Aenogym