Wie ShowModal Form aus dem HauptForm schließen?

[Sir Rufo]

Nur um mal mit dieser Mär mit den modalen Forms, die sich angeblich nicht von aussen schliessen lassen, aufzuräumen habe ich hier ein Beispiel-Code

Delphi-Quellcode:

unit Form.Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,

  Form.Dialog;

type
  TMainForm = class( TForm )
    Button1: TButton;
    Timer1: TTimer; { Enabled = False, Interval = 5000 }
    procedure Timer1Timer( Sender: TObject ); 
    procedure Button1Click( Sender: TObject );
  private
    FDialogForm: TDialogForm;
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click( Sender: TObject );
begin
  FDialogForm := TDialogForm.Create( nil );
  try
    Timer1.Enabled := True;
    FDialogForm.ShowModal;
    Timer1.Enabled := False;
  finally
    FreeAndNil( FDialogForm );
  end;
end;

procedure TMainForm.Timer1Timer( Sender: TObject );
begin
  if Assigned( FDialogForm ) then
    FDialogForm.Close;
end;

end.

Die DialogForm ist ein simple Form.

[Sir Rufo]

Aber wir driften vom Thema ab, denn die Fehlermeldung kommt nicht vom Versuch die Form zu schliessen, sondern vom Versuch die modal anzuzeigen.

Die Fehlermeldung ist doch sehr eindeutig:

Zitat:

TCustomForm.ShowModal for OfflineForm:TOfflineForm impossible, because already visible (hint for designer forms: set Visible property to false ) already modal.)

und da gibt es auch noch einen Tip, was man kontrollieren, bzw. gewährleisten sollte (Im OI OfflineForm.Visible = False setzen)

[Perlsau]

Zitat von Sir Rufo:

Aber wir driften vom Thema ab, denn die Fehlermeldung kommt nicht vom Versuch die Form zu schliessen, sondern vom Versuch die modal anzuzeigen.

Die Fehlermeldung ist doch sehr eindeutig:

Zitat:

TCustomForm.ShowModal for OfflineForm:TOfflineForm impossible, because already visible (hint for designer forms: set Visible property to false ) already modal.)

und da gibt es auch noch einen Tip, was man kontrollieren, bzw. gewährleisten sollte (Im OI OfflineForm.Visible = False setzen)

Das paßt aber nicht damit zusammen, was AlexII im Eingangsposting meint:

Zitat von AlexII:

ich versuche wie folgt ein modales Fenster zu schließen:

Delphi-Quellcode:

procedure TMainForm.SetAppOnline();
begin 
  OfflineForm.Visible := False;
  //oder 
  OfflineForm.ModalResult := mrCancel;
  //oder
  OfflineForm.ModalResult := mrOK;
end;

bekomme aber immer diese Fehlermeldung, siehe Anhang. Wie bekomme ich das modale Fenster aus dem Hauptfenster zu?

Zitat von Sir Rufo:

Nur um mal mit dieser Mär mit den modalen Forms, die sich angeblich nicht von aussen schliessen lassen, aufzuräumen habe ich hier ein Beispiel-Code

... das problemlos funktioniert.

Aber wie hier und im Nachbar-Thread bereits eingewendet wurde, macht das nicht wirklich Sinn, denn man ruft eine Form doch genau deshalb modal auf, um eine bestimmte Reaktion des Anwenders quasi zu erzwingen: Wenn er z.B. einen Dateinamen auswählen soll, dann kann er das nicht, wenn der Dialog nach 5 Sekunden wieder geschlossen wird. Die Umstände in Alex' Programm sind ja auch bislang streng geheim

[AlexII]

Also ich komme mit dem Lesen nicht hinterher, aber im groben habe das Problem verstanden.

Mein Vorhaben ist folgendes, ich habe eine Anwendung = MainForm. Wenn die Anwendung offline geschaltet wird, wird OfflineForm "darüber gelegt". Wird das Programm online geschaltet - schließe ich das OfflineForm. Eigentlich ganz einfach. Nur das Schließen des OfflineForms will vom MainForm nicht klappen. Aber ich denke, ich löse das jetzt, Ihr habt mir genug wissen gegeben. Es sei denn jemand weiß besser wie ich mein Vorhaben umsetze.

[DeddyH]

Wäre es da nicht einfacher, wenn das modale Formular den Status prüft und sich selbst schließt?

[AlexII]

Zitat von DeddyH:

Wäre es da nicht einfacher, wenn das modale Formular den Status prüft und sich selbst schließt?

Aber ich muss doch den Status von dem MainForm veranlassen, oder? Hm...

[Sir Rufo]

@AlexII

Zeig uns mehr Code und wir können dir helfen

[AlexII]

Zitat von Sir Rufo:

@AlexII

Zeig uns mehr Code und wir können dir helfen

Das sind nur ein Paar Zeilen weit verstreut.

Aber ich habe es schon verstanden... es wird gleich laufen wie geschmiert!

[EWeiss]

Ich kenne das aus anderen Sprachen da wird das mit modalen Forms anders gelöst.
Wird eine Form Modal aufgerufen ist eine Eingabe in der Hauptform nicht mehr möglich.
Sollte zumindest so sein.
Welchen zweck sonst verfolgt eine Modale Form .. nur diesen das wie schon gesagt eingaben
in der Hauptform verwehrt werden und nur in dieser Modalen Form eingaben möglich sind
so lange bis diese geschlossen wird.

Möchtest du das nicht dann erstelle keine Modale Form.
Die Frage wäre also welchen zweck verfolgst du damit das du eine Modale Form erstellst(aufrufst)

gruss

[Sir Rufo]

@Perlsau

Ich behaupte mal dass AlexII hier einfach die falschen Schlüsse zieht und nur denkt, dass diese von ihm gezeigten Codezeilen für die Fehlermeldung verantwortlich sind.

Die Fehlermeldung bezieht sich aber ganz eindeutig auf ShowModal und davon ist in dem hier gezeigten Code nichts zu sehen, ergo sind die nicht verantwortlich.

Und eine modale Form ist nicht auf eine Auswahl von was auch immer beschränkt. Bei einem Datei-Auswahl-Dialog macht es allerdings zu 99,9999% keinen Sinn diesen nach einer gewissen Zeit automatisch zu schliessen. Es gibt aber eben mehr als nur das