Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Nach MessageBox verschwindet meine Form. (https://www.delphipraxis.net/103826-nach-messagebox-verschwindet-meine-form.html)

formosa 22. Nov 2007 11:23


Nach MessageBox verschwindet meine Form.
 
Hallo,

Hab grad ein Problem bei welchem ich nicht richtig weiterkomme.

In meiner Form.ShowModal steht folgendes :

Delphi-Quellcode:
button := Application.MessageBox('Really want to cancel?','Stop',292);
if button = 6 then break;
Wenn ich jetzt "Ja" klicke bzw. IDYES, bleibt die Form sichtbar. Drücke ich "Nein" bzw. IDNO verschwindet die Form.

Weiss jemand was da los ist?

Danke,

Schönen Gruss Chris

mkinzler 22. Nov 2007 11:35

Re: Nach MessageBox verschwindet meine Form.
 
es scheint am break zu liegen. Mach es doch richtig und drehe die Bedingung um.

Luckie 22. Nov 2007 12:20

Re: Nach MessageBox verschwindet meine Form.
 
Da musst du uns schon etwas mehr Code zeugen. Was wird denn für Code ausgeführt, wenn die Bedingung nicht zu trifft?

Gonzo2 22. Nov 2007 12:42

Re: Nach MessageBox verschwindet meine Form.
 
Zitat:

Zitat von formosa
Wenn ich jetzt "Ja" klicke bzw. IDYES, bleibt die Form sichtbar. Drücke ich "Nein" bzw. IDNO verschwindet die Form.

Weiss jemand was da los ist?

Ja. Du hast bei Buttoneigenschaft ModalResult den Wert mrNo oder irgendetwas anderes außer mrNone. In diesem Fall wird das Fenster sofort geschlossen.

Hat jetzt mit deiner Abfrage nichts zu tun, bis auf, daß du bei dem Nein Button mrNo oder irgendetwas eingestellt hast. Mit mrNone bleibt das Fenster bestehen.

formosa 23. Nov 2007 04:56

Re: Nach MessageBox verschwindet meine Form.
 
Jetzt gehts. Es war tatsächlich die Buttoneigenschaft ModalResult. Die ist mir gar nie aufgefallen.

Danke euch allen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz