Showmodal Formular schließen - FEHLER

[Overclocker]

Hallo zusammen,

habe ein Formular welches ich beim OnCreate showmodal zuweisen, d. h. alle Fenster im Hintergrund sind "deaktiviert".

Wenn ich das Fenster dann wieder schließe, geht es auch kurz weg, doch dann taucht das Fenster nochmal auf und diesmal hat es kein Showmodal (d. h. ich kann auch die hinteren fenster anklicken).

Wieso öffnet er das Formular nochmal und schließt es nicht einfach?

Danke für die Hilfe

Gruß

[s-off]

Hallo,

Zitat von Overclocker:

Wieso öffnet er das Formular nochmal und schließt es nicht einfach?

das kannst wohl nur Du wissen - es sei denn, Du zeigst uns Deinen Code...

[mkinzler]

Vielleicht solltest du die Form per ShowModal Öffnen als sie beim normalen Öffnen nochmals modal zu öffnen.

[Nuclear-Ping]

Zitat von Overclocker:

habe ein Formular welches ich beim OnCreate showmodal zuweisen

Wenn du das im OnCreate machst, sollte er dir das Fenster auch sofort Modal anzeigen. Ergo hat das auch nix im FormCreate zu suchen sondern modale Fenster werden idR explizit so aufgerufen.

Delphi-Quellcode:

procedure TForm1.ButtonIrgendwasClick(Sender: TObject);
begin
  with TMyIrgendwasForm.Create (Self) do
    try
      ShowModal;
      case ModalResult of
        mrOK: ...
        mrCancel: ...
      end;
    finally
      Free;
    end;
end;

[Overclocker]

So öffne ich das fenster:

Delphi-Quellcode:

procedure TStammdaten.Kunde_neuClick(Sender: TObject);
begin
application.createform(TStammdaten_dlg,Stammdaten_dlg);
end;

beim Oncreate von Stammdaten_dlg wird dann showmodal aufgerufen.


Wie kann ich das mit showmodal sonst anders machen? hab damit noch nicht gearbeitet desh ist mir das ganze noch realtiv neu!



@Nuclear-Ping: dann kommt der fehler: Aus einem sichtbare fenster kann kein modales gemacht werden

[Nuclear-Ping]

Die Form darf nicht automatisch erzeugt werden. Und auch nicht with MyIrgendwasForm do sondern with TMyIrgendwasForm.Create (Self) do. Du mußt die Form zu dem Zeitpunkt selbst erstellen.

Schmeiss das ShowModal aus dem OnCreate.

Delphi-Quellcode:

procedure TStammdaten.Kunde_neuClick(Sender: TObject);
begin
  with TStammdaten_dlg.Create (Self) do
    try
      ShowModal;
      case ModalResult of
        mrOK: ...
        mrCancel: ...
      end;
    finally
      Free;
    end;
end;

[Overclocker]

ich machs genau so wie dus mir sagst (copy paste^^) aber der fehler kommt immer noch ...

[Nuclear-Ping]

Dann stell halt mal im OI das Visible von der TStammdaten_dlg auf False.

[Overclocker]

danke das wars