parent schliessen

[khh]

Hallo zusammen, ich möchte beim Start eines Programms das Hauptfenster im HG anzeigen.
Im Vordergrund soll ein modales Fenster zu einer Eingabe zwingen.
Erst nach dieser Eingabe darf das Hauptform benutzt werden.
Beim Abbruch ohne Eingabe soll das Hauptfenster mit geschlossen werden.

Ich hab mir gedacht im OnActivate des mainForm das Eingabefenster modal anzuzeigen.
Soweit so gut.
Aber wie sage ich dem Parent dass es beim Abbruch des modalen Fensters ebenfalls geschlossen wird?

Ist sicher ganz einfach, oder ?

EDIT: habs mit application.terminate versucht, funkt aber leider nicht :-(

Gruss KHH

[shmia]

Entweder ruftst du

Delphi-Quellcode:

Application.Terminate

(Holzhammermethode) auf oder du fragst das ModalResult (eleganter) ab:

Delphi-Quellcode:

procedure TMainForm.FormActivate(...);
var
  frm : TPasswortForm;
  ende : Boolean;
begin
  frm := TPasswortForm.Create(nil);
  try
    // Fomular modal anzeigen - wenn nicht OK-Button gedrückt wurde
    // ist ende = True
    ende := frm.ShowModal <> mrOK;
  finally
    frm.Free;
  end;
  if ende then
    Close;
end;

[khh]

Zitat:

Zitat von shmia (Beitrag 1044575)

Entweder ruftst du

Delphi-Quellcode:

Application.Terminate

(Holzhammermethode) auf oder du fragst das ModalResult (eleganter) ab:

Delphi-Quellcode:

procedure TMainForm.FormActivate(...);
var
  frm : TPasswortForm;
  ende : Boolean;
begin
  frm := TPasswortForm.Create(nil);
  try
    // Fomular modal anzeigen - wenn nicht OK-Button gedrückt wurde
    // ist ende = True
    ende := frm.ShowModal <> mrOK;
  finally
    frm.Free;
  end;
  if ende then
    Close;
end;

:wall:
logisch, jetzt wo du es sagst ;-)

ich danke dir

[khh]

funktioniert dochnicht ganz sauber :-(

egal ob über terminate oder modalresult
beim beenden flackert das Fenster sekundenlang , bis es mit
"Failed to create win32 control, error 0 " beendet wird.

ich vermute dass es daran liegt dass das im formactivate gehandelt wird, oder?

EDIT: ich habs ins OnShow gepackt, dort funktionierts, allerdings ohne dass das Hauptform in HG angezeigt wird :-(

[DeddyH]

Das kann ich nicht nachvollziehen, bei mir funzt das im OnActivate ohne Probleme.

[edit] Hast Du das Passwort-Formular auch aus der automatischen Formularerstellung herausgenommen? Und wie schließt Du es? Weist Du ModalResult zu? [/edit]

[shmia]

Das Formular schliesen im Event OnActivate oder OnShow ist ein bisschen so wie wenn man jemandem den Stuhl unterm Hintern wegzieht.
Versuche mal anstelle von Close:

Delphi-Quellcode:

PostMessage(self.Handle, WM_CLOSE, 0,0);

[DeddyH]

Oder quick & dirty im OnShow/OnActivate einen Timer starten, der das Passwortformular aufruft und sich dann dünne macht.

[khh]

Zitat:

Zitat von shmia (Beitrag 1044602)

Das Formular schliesen im Event OnActivate oder OnShow ist ein bisschen so wie wenn man jemandem den Stuhl unterm Hintern wegzieht.
Versuche mal anstelle von Close:

Delphi-Quellcode:

PostMessage(self.Handle, WM_CLOSE, 0,0);

auch das verursacht im OnActivate das Flackern und
"Failed to create win32 control, error 0 "

das Modale Form hab ich auch aus der Autoerstellung rausgenommen.

was kann sonst noch die Ursache sein?

[DeddyH]

Kannst Du das in einem kleinen Demo-Projekt reproduzieren? Falls ja, häng das doch mal an, dann kann man sich das in Ruhe anschauen.

[khh]

Zitat:

Zitat von DeddyH (Beitrag 1044648)

Kannst Du das in einem kleinen Demo-Projekt reproduzieren? Falls ja, häng das doch mal an, dann kann man sich das in Ruhe anschauen.

ich versuch morgen mal eine entsprechendes Demo zu erstellen.
Ich danke für eure Hilfe.

Gruss KHH