Wie ShowModal Form aus dem HauptForm schließen?

[AlexII]

Hallo,

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?

Danke!

[himitsu]

Wo kommt der Fehler, bei allem zusammen, oder wirklich nur bei einem der Oder?

OfflineForm.ModalResult := irgendwas_ungleich_mrNone; oder OfflineForm.Close; sind die offiziellen Wege, eine modale Form zu schließen. (Close setzt intern auch nur das ModalResult auf mrAbort oder vermutlich eher auf mrCancel ... weiß grade nicht genau was)


* Du hast die QuellCodes der FCL rumliegen
* Du hast den Fehlertext
* Du könntest eventuell auf die Idee kommen und da drin z.B. nach dem Fehlertext (oder Teilen davon) zu suchen, nachzuschauen warum Dieses angezeigt wird und schon weißt du auch das Warum.
(oder Pause drücken und hoffen man erkennt im Stacktrace wo der Aufruf her kommt und so dort hinzufinden, bzw. man debuggt sich vor dem Knall zu der Stelle)

PS: Auch Lazarus wird bestimmt Strg+C kennen, mit dem man Dialoge als "Text" kopieren kann. (meist hört man ein liebevolles Beep, als Bestätigung)

[AlexII]

Alle oben genannten Versuche führen zu dem Fehler, OfflineForm.Close; auch.

[Dalai]

Ich bin mir nicht sicher, ob du verstehst, was ein modales Fenster ist, und wie Perlsau es erklärt hat. Versuchen wir es mal mit einem (zum Teil sinnfreien) Beispiel:

Delphi-Quellcode:

function TForm1.PluginShowForm(const AhParent: HWND): Boolean;
var fmStartupProperties: TfmStartupProperties;
begin
    fmStartupProperties:= TfmStartupProperties.Create(nil, AhParent);
    try
      fmStartupProperties.ShowModal;
      ShowMessage('blub');
    finally
      fmStartupProperties.Free;
    end;
end;

Wann taucht deiner Meinung nach die Meldung 'blub' auf? Wenn du das ggf. mal ausprobierst, wird dir vielleicht klar, wie der Programmablauf ist und warum eine Zuweisung an ModalResult in diesem Kontext - im Code oben innerhalb der Klasse TForm1 - keinerlei Sinn hat, innerhalb der Klasse TfmStartupProperties (=blockierendes Kindfenster von TForm1) hingegen schon.

MfG Dalai

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

Egal, ich guck jetzt meinen Film weiter, das ist entspannender

Zitat von Sir Rufo:

Natürlich kann man eine modale Form auch von ausserhalb schliessen, dazu benötigt man aber z.B. einen Timer.

Aber wozu soll das gut sein? Vielleicht: "Wenn du, Anwender, jetzt nicht innerhalb von 10 Sekunden einen Button drückst, dann nehm ich dir den Dialog wieder weg und du kannst gucken, wo du bleibst!"

Zitat von Sir Rufo:

Die Fehlermeldung sagt aber aus, dass schon der Aufruf von OfflineForm.ShowModal fehlschlägt und somit dieser bisher gezeigte Code für den Fehler nicht aber auch absolut gar nicht verantwortlich ist.

Er ruft doch gar nicht ShowModal auf, sondern versucht, ModalResult on OfflineForm von der MainForm aus aufzurufen. Also wenn ich jetzt auf die mainform einen Button setze und dort den Code von AlexII reinkopiere, das Programm starte und diesen Button klicke, passiert da in allen drei Fällen absolut gar nix.

Delphi-Quellcode:

procedure TFormMain.Button1Click(Sender: TObject);
begin
  //OfflineForm.Visible := False;
  //OfflineForm.ModalResult := mrCancel;
  OfflineForm.ModalResult := mrOK;
end;

Ist OfflineForm modal sichtbar, komme ich an diesen Button auf dem Mainform ja gar nicht ran. Ein OnIdle hab ich nicht gefunden, und einen Timer laufen zu lassen, ist mir jetzt zu viel Streß.

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

[himitsu]

OfflineForm wird auch wirklich modal angezeigt?

Um das zu prüfen, was die Perlsau meint:
Eine Methode in die Form, da drin Close aufrufen und dann rufst du diese Methode auf.


Ich bin was essen, hab keine Lust mir die LCL runterzuladen und das zu machen, was der TE auch selber machen kann.
> nachsehen, warum es diese Meldung gibt (da findet man garantiert ein paar IFs und die sagen Einem, was sie nicht mögen)

[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