Form über anderer Form zentrieren

[striderx]

Zur Erläuterung:

Form3 ist meine Alternative zum Windows Message-Dialog. Je nach Aufruf werden in Form3 die Anzahl der Buttons und der angezeigte Text festgelegt und daraus dann die Größe des Dialogs ermittelt.

Ich habe es jetzt mal so probiert:

Delphi-Quellcode:

  F := GetParentForm(Self);
  dlgShowMsg.Top  := F.Top + Trunc((F.Height - dlgShowMsg.Height) / 2);
  dlgShowMsg.Left := F.Left + Trunc((F.Width - dlgShowMsg.Width) / 2);

edit: Aber damit erscheint der Dialog immer in der oberen linken Ecke.

[himitsu]

GetParentForm?
Bzw. was ist Self?

Also als Subkomponente genutzt (Parent gesetzt) und nicht als eigenständige Form?
Dann natürlich ohne die Addition der Position des äußeren Fensters, da hier das Offset 0 ist.

[striderx]

Zitat von himitsu:

GetParentForm?

Also als Subkomponente genutzt (Parent gesetzt) und nicht als eigenständige Form?

Doch, das ist eine eigenständige Form. Self müsste Form3 sein.

[DeddyH]

Spontan fallen mir 2 Möglichkeiten ein:
- Form3 bekommt eine öffentliche Methode, die die Größenberechnung anstößt
- Form3 bekommt eine Property vom Typ TForm, in der sich das aufrufende Formular einträgt und berechnet seine Position anhand dieser Property dann selbst

[striderx]

Zitat von DeddyH:

Spontan fallen mir 2 Möglichkeiten ein:
- Form3 bekommt eine öffentliche Methode, die die Größenberechnung anstößt
- Form3 bekommt eine Property vom Typ TForm, in der sich das aufrufende Formular einträgt und berechnet seine Position anhand dieser Property dann selbst

Form3 hat bereits eine öffentliche Methode, in der die Form zusammengebastelt wird und die das ModelResult zurück liefert.

function ShowMsg(MsgText, HeaderText: String; mButtons, mIcon: Word): Integer;

Ich könnte die Werte der aufrufenden Form noch als Parameter aufnehmen, das wäre aber nicht besonders elegant.

[himitsu]

Zitat von striderx:

Form3 hat bereits eine öffentliche Methode, in der die Form zusammengebastelt wird und die das ModelResult zurück liefert.

Dann ist also Self die aufrufende Form?

Tja, dann redest du von 2 Forms und ich zähle im Code aber 3 Forms/Variablen.
(Self, F und dlgShowMsg)

[striderx]

Zitat von himitsu:

Zitat von striderx:

Form3 hat bereits eine öffentliche Methode, in der die Form zusammengebastelt wird und die das ModelResult zurück liefert.

Dann ist also Self die aufrufende Form?

Tja, dann redest du von 2 Forms und ich zähle im Code aber 3 Forms/Variablen.
(Self, F und dlgShowMsg)

Form1 ist die Haupt-Form, Form2 eine beliebige von dort aufgerufene Form die wiederum Form3 aufruft. Form3 ist gleich dlgShowMsg. F sollte der Aufrufer von Form3 sein, Self ist Form 3.

[haentschman]

Moin...

Zitat:

Ich könnte die Werte der aufrufenden Form noch als Parameter aufnehmen, das wäre aber nicht besonders elegant.

Delphi-Quellcode:

function ShowMsg(ParentForm: TForm; MsgText, HeaderText: String; mButtons, mIcon: Word): Integer;
..

oder im constructor beim erzeugen von Form3

Delphi-Quellcode:

constructor Create(AOwner: TComponent; ParentForm: TForm); reintroduce;
..
constructor TfrBlubb.Create(AOwner: TComponent; ParentForm: TForm);
begin
  inherited Create(AOwner);
  ..
end;

...was ist daran nicht elegant?

Die Dialog Form intessiert nur wer in aufgerufen hat, damit er seine eigenen Positionen berechnen kann. (siehe DeddyH) ...fertsch.

[striderx]

Da Form 3 von unterschiedlichen anderen Formularen aufgerufen wird, ist der Constructor kaum die richtige Stelle. Ich habe es stattdessen mit einer überladenenen Version von ShowModal gemacht:

function ShowModal(MsgText, HeaderText: String; mButtons, mIcon: Word; aCaller: tForm): Integer; overload;

Was nicht elegant ist: Dass ich bei über 100 Aufrufen jetzt jedesmal das aufrufende Formular als Parameter einfügen muss.