Form über anderer Form zentrieren

[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.

[striderx]

So, ich habe jetzt eine Lösung gefunden:

Die aufrufende Form läßt sich über Screen.Forms[0] ermitteln.

Das Ganze sieht bei mir dann so aus:

Delphi-Quellcode:

  aCaller := Screen.Forms[0];
  if aCaller <> Nil then begin
     dlgShowMsg.Position := poDesigned;
     dlgShowMsg.Top  := aCaller.Top + Trunc((aCaller.Height - dlgShowMsg.Height) / 2);
     dlgShowMsg.Left := aCaller.Left + Trunc((aCaller.Width - dlgShowMsg.Width) / 2);
  end
  else dlgShowMsg.Position := poOwnerFormCenter;

[himitsu]

Zitat von striderx:

Die aufrufende Form läßt sich über Screen.Forms[0] ermitteln.

Jain. Das ist die Form, welche aktuell den Fokus besitzt, denn immer wenn eine Form den bekommt, wird sie auf 0 verschoben.

Ist deine Form bereits sichtbar, dann wäre sie selbst die 0.

Zitat von striderx:

Das Ganze sieht bei mir dann so aus

aCaller <> nil aka Assigned(aCaller) wirst du nie erleben, denn das ist niemals NIL, da Forms[i] immer eine Form zurückliefert, und wenn nicht, dann wird eine Exception geworfen (index out of bounds).

[t.roller]

Zitat von striderx:

So, ich habe jetzt eine Lösung gefunden:

Die aufrufende Form läßt sich über Screen.Forms[0] ermitteln.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var aCaller : TForm;
begin
aCaller := Self;
...

[striderx]

Zitat:

Ist deine Form bereits sichtbar, dann wäre sie selbst die 0.

Stimmt. Da ich aber meine Form in der aufgerufenen Methode erst konfiguriere, passiert das, bevor sie sichtbar wird. In meinem Anwendungsfalls klappt das somit.


@t.roller: Das geht auch einfacher, indem ich den Caller als Parameter beim Methodenaufruf übergebe. Aber mit meinem Ansatz kann ich mir das schenken.