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)

[Dalai]

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

Ich glaube, es bezweifelt niemand, dass es geht, wenn man nur ein bisschen (mehr) Aufwand treibt. Aber ich denke auch, dass das dem Sinn einer modalen Form zuwiderläuft.

Aber wie himitsu schon im anderen Thread schrieb: Hier kann man nur mutmaßen, weil zu wenige Infos vorhanden sind, und der Code keine wirkliche Aussagekraft hat.

MfG Dalai

[Sir Rufo]

Die Mär besagte, dass es gar nie niemals nicht geht. Das galt es zu widerlegen.

Nein, warum sollte es dem Sinn einer modalen Form zuwiderlaufen? Die modale Form hindert den Benutzer daran, das modale Formular zu verlassen ... und mein Beispiel ändert an dieser Tatsache nicht das geringste.

Und den Code den wir hier sehen, der löst die Fehlermeldung nicht aus.

[himitsu]

Zitat von Sir Rufo:

Und den Code den wir hier sehen, der löst die Fehlermeldung nicht aus.

Darum auch.

Zitat von himitsu:

...
Aber solange hier in zwei Threads nur zusammenhanglose Stückchen gezeigt werden und alles Wichtige fehlt, hat es eh keinen Sinn eine Lösung finden zu wollen.
Meine Galskugel ist grade in der Reinigung.

[AlexII]

Zitat von Perlsau:

Zitat von Dalai:

Ich bin mir nicht sicher, ob du verstehst, was ein modales Fenster ist, und wie Perlsau es erklärt hat.

Ich glaube fast, er hat das gar nicht gelesen ... da gibt man sich mal so richtig Mühe und versucht das ordentlich zu erklären ...

Ne, ich hatte es noch nicht gelesen... aber danke, ist besser erklärt als in der Hilfe!

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

[Sir Rufo]

@AlexII

Zeig uns mehr Code und wir können dir helfen