Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Fehler bei MessageDlg (https://www.delphipraxis.net/188991-fehler-bei-messagedlg.html)

xVaskii 24. Apr 2016 19:51

Delphi-Version: 5

Fehler bei MessageDlg
 
Hallo,

hab ein Problem, dass wenn ich im Dialog auf Yes klicke der Close Befehl nicht ausgeführt wird, jedoch wenn man auf No Klickt.
Hier mal mein Code.

Code:
if MessageDlg('Wirklich beenden?',
              mtConfirmation,
              [mbYes,mbNo],
              0) = mrYes then begin
              close;
              end;
end;
Wäre super wenn ihr mir helfen würdet.

Klaus01 24. Apr 2016 20:19

AW: Fehler bei MessageDlg
 
.. muss nicht das entsprechende ModalResult gesetzt werden um den Dialog zu schliessen?

Grüße
Klaus

bcvs 25. Apr 2016 09:12

AW: Fehler bei MessageDlg
 
Das kann eigentlich nicht sein. Ist da vielleicht irgendwo das mrYes umdefiniert worden? Probier mal idYes statt mrYes.

Lemmy 25. Apr 2016 09:21

AW: Fehler bei MessageDlg
 
Zitat:

Zitat von xVaskii (Beitrag 1336534)
Hallo,

hab ein Problem, dass wenn ich im Dialog auf Yes klicke der Close Befehl nicht ausgeführt wird, jedoch wenn man auf No Klickt.

sicher, dass DER Close-Befehl ausgeführt wird und nicht ein anderer? schon mit dem Debugger durch gegangen?

pesi 25. Apr 2016 10:45

AW: Fehler bei MessageDlg
 
Ähem... was soll denn "geclosed" werden??? Deine Form, Deine Application oder was??? Vielleicht mal Close durch Application.Terminate ersetzen!?

baumina 25. Apr 2016 12:25

AW: Fehler bei MessageDlg
 
Zitat:

Zitat von pesi (Beitrag 1336564)
Ähem... was soll denn "geclosed" werden??? Deine Form, Deine Application oder was??? Vielleicht mal Close durch Application.Terminate ersetzen!?

Und warum jetzt auf einmal ein sauberes Close durch ein unsauberes Application.Terminate ersetzen?


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:24 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