Form über anderer Form zentrieren

[haentschman]

Moin...

Zitat:

Ich hätte auch gedacht, dass 'poOwnerFormCenter' genau für einen solchen Fall da

... und wer ist der Owner wenn das Form automatisch in der MainForm erzeugt wird?

[Slipstream]

Zitat von haentschman:

Moin...

Zitat:

Ich hätte auch gedacht, dass 'poOwnerFormCenter' genau für einen solchen Fall da

... und wer ist der Owner wenn das Form automatisch in der MainForm erzeugt wird?

Das Folgende klappt bei mir fehlerfrei, das 2. Formular wird genau in der Mitte des 1. Formulars angezeigt, und zwar immer und egal, von welchem Formular aus ich aufrufe:

Delphi-Quellcode:

procedure TForm1.Bt_Form2Click(Sender: TObject);
begin
  U2 := TForm2.Create(Self);
  Try
    U2.Position := poOwnerFormCenter;
    U2.ShowModal;
  Finally
    U2.Free;
  End;
end;

[striderx]

@haentschmann

Wenn ich mir meine dpr-Dateien anschaue, sehe ich nichts davon, dass etwas "automatisch in der MainForm erzeugt wird".


@slipstream

Wie ich schon geschrieben habe: Da ist mir der Einzeiler mit dem Aufruf von ShowModal deutlich lieber ...



Ich bin mir sicher, dass es einen Weg geben muss, den Caller festzustellen (wie macht das z. B. MessageDlg?). Aber so komme ich jetzt erst mal klar.