Stick to upper center funktion?

Det kan da laves ;)

procedure TopCenterForm;
begin
  Form1.Top := 0;
  Form1.Left := (Screen.Width div 2)- (Form1.Width div 2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TopCenterForm;
end;

Man kan så evt. udvide TopCenterForm funktionen så man kan angive hvilket form den skal gøre det på.

Snowball

I så fald bliver det bare som nedenstående.

procedure TopCenterForm(F: TForm);
begin
  F.Top := 0;
  F.Left := (Screen.Width div 2) - (F.Width div 2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TopCenterForm(Form1);
end;

Snowball