Form über anderer Form zentrieren

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

[haentschman]

Zitat:

Da Form 3 von unterschiedlichen anderen Formularen aufgerufen wird, ist der Constructor kaum die richtige Stelle.

...dynamische Erzeugung nur wenn die Form (der Dialog) gebraucht wird?

Delphi-Quellcode:

Dialog := TfoBlubb.Create(nil, self);
try
  Dialog.ShowMessage('Bla');
finally
  Dialog.Free;
end;

[striderx]

Da ist mir der Einzeiler mit dem Aufruf von ShowModal deutlich lieber ...

[Slipstream]

Geht das nicht auch mit Form3.Position := poMainFormCenter oder poOwnerFormCenter? Im zweiten Fall müsste man Form3 als Owner Form2 mitgeben, oder?

[striderx]

Zitat von Slipstream:

Geht das nicht auch mit Form3.Position := poMainFormCenter oder poOwnerFormCenter? Im zweiten Fall müsste man Form3 als Owner Form2 mitgeben, oder?

Ich hätte auch gedacht, dass 'poOwnerFormCenter' genau für einen solchen Fall da ist (s. mein Eingangs-Post), klappt aber leider nicht.

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