Bestätigungsfenster beim Beenden öffnen.

[rip202]

Hi,
wir müssen in der Schule mit Delphi programieren.
Dabei bin ich dann irgendwann auf ein Problem gestoßen. Ist warscheinlich total simpel aber ich hab keine Ahnung.
Ich möchte gerne, dass sich ein bestätigen Fenster öffnet, wenn ich auf den beenden Button klicke.
Bitte helft mir.
mfg
rip202

[sirius]

Versuchs mal mit einem "messagedlg" im OnCloseQuery-Ereignis.

[DeddyH]

Oder MessageBox (das ist halt mein Favorit). Wichtig dabei ist, die Variable CanClose dem Ergebnis des Dialogs anzupassen.

[rip202]

Hey, vielen dank.
Ich probier das mit der messagebox.
Ich bin aber leider so inkompetent, dass ich nicht mal weiß wie das funktioniert.
Könnt ihr mir vielleicht da nochmal Hilfe geben?

[mkinzler]

Die Delphi-OH hilft gern.

[DeddyH]

Delphi-Quellcode:

CanClose := MessageBox(Handle,'Wirklich schließen?','Ach Mensch',MB_YESNO or MB_ICONQUESTION) = IDYES;

[edit] Was das im Einzelnen heißt, kannst Du aber in der Hilfe nachschagen ;) [/edit]

[rip202]

ok, thx.
ich glaub jetzt bekomm ichs hin.

[Jelly]

Auch Dir ein herzliches Willkomen hier im Forum, :dp:

Eins stört mich:

Zitat:

Zitat von rip202

wir müssen in der Schule mit Delphi programieren.

Wieso müssen??? Ist doch schön, solch eine coole Programmiersprache zu lernen, und tausend mal besser als irgend ein visual Basic Kram.

Programmieren ist eine schöne Sache, wenn man sich bis etwas damit beschäftigt hat, glaub mir.

Zu deinem Problem:
MessageBox (bzw. MessageDlg) wurde dir genannt. Beide Funktionen liefern dir einen Wert zurück, welcher Button im Dialog gedrückt wurde. Und om OncloseQuery kannst du daraufhin prüfen, ob die Anwendung nun geschlossen werden soll oder nicht. Dafür musst du, rate mal, den Var-Parameter canClose entsprechend setzen... eigentlich ganz logisch, oder :zwinker:

[SirThornberry]

Gib deinem Titel bitte, entsprechend den Forenregeln, einen aussagekräftigen Titel :)
Der Grund für diese Regel ist einfach: Hat jemand das gleiche oder ein ähnliches Problem findet er über die Suchfunktion diesen Beitrag am ehesten wenn ein ordentlicher Titel vergeben ist. Zudem bleibt das Forum dadurch übersichtlicher weil man sofort anhand eines Titels weiß worum es bei einem Thema geht. Und zu guter letzt: liest jemand einen Titel und sieht daran "oh, hier kann ich helfen" bekommst du eher eine Antwort als wenn niemand den Beitrag anschaut weil der Titel nichts darüber aussagt.

[rip202]

ok, ich werds mir merken.=)

[hathor]

Zitat:

Zitat von rip202

ok, ich werds mir merken.=)

...und wann änderst Du den Titel?

[Schwedenbitter]

Zuerst: Entschuldigung, dass ich ein alten Thema wieder aufnehme!

Zitat:

Zitat von DeddyH

Oder MessageBox (das ist halt mein Favorit). Wichtig dabei ist, die Variable CanClose dem Ergebnis des Dialogs anzupassen.

Während MessageDlg() offenbar modal aufgerufen wird, scheint das bei MessageBox() nicht der Fall zu sein. Wenn man also vom dümmsten anzunehmenden User ausgeht, der mehrfach auf das Kreuz oder Schließen klickt, dann habe ich mit MessageBox() mehrere Abfragefenster. Da mich an MessageDlg() aber stört, dass die Dialog-Typen begrenzt sind und man die ziemlich große Unit Dialogs einbinden muss, möchte ich das ungern verwenden. Bislang ist mein exe schön klein.

Daher meine Frage:
Gibt es eine Möglichkeit, MessageBox() auch modal zu machen?

Gruß, Alex

[Luckie]

Zitat:

Zitat von Schwedenbitter

Daher meine Frage:
Gibt es eine Möglichkeit, MessageBox() auch modal zu machen?

Hast du es mal ausprobiert? Offensichtlich nicht, denn eine MessageBox ist immer modal.

[Schwedenbitter]

Zitat:

Zitat von Luckie

Hast du es mal ausprobiert? Offensichtlich nicht, denn eine MessageBox ist immer modal.

Lass bitte solche falschen Mutmaßungen! Wozu soll das gut sein?

Natürlich habe ich es ausprobiert. Du hast Recht, wenn der Benutzer auf das Kreuzchen rechts oben klickt.
Wenn man aber unten in der Taskleiste mit der rechten Maustaste auf das Programmsymbol und dann auf Schließen klickt und wieder und wieder, gehen nacheinander mehrere Boxen auf. Die sind dann m.E. garnicht mehr so modal, zumal man sich dann den Dialog aussuchen kann ... Wie aus meiner vorhergehenden Nachricht ersichtlich wird, tritt das Phänomen nicht auf, wenn ich MessageDlg() verwende. Dann gibt es nur ein Fenster, das blinkt, wenn ich abermals wie beschrieben auf Schließen klicke.
Vielleicht liegt es auch an TurboDelphi.

Also formuliere ich meine Frage um:
Wie bekomme ich es hin, dass eine MessagBox nur einmal erscheint und (aus meiner Sicht) modal ist, wenn man einen entsprechenden Dialog über die Schließen-Option in der Taskleiste präsentiert bekommt?

Gruß, Alex

[edit]
Fehler gefunden:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=MessageBox(Application.Handle, 'Beenden?', 'Abfrage',
    MB_YESNO Or MB_ICONQUESTION) = IDYES;
end;

Es darf nicht nur Handle, sondern es muss Application.Handle heißen.

[Schwedenbitter]

Zu früh gefreut! :wall: Es klappt nur bei meinen kurzen Testprogrammen.

In dem Programm, um das es geht, benutze ich ein Shell_NotifyIcon. Bei einem Klick auf dieses wird ein PopupMenu aufgerufen. Dort befindet sich ein Eintrag "Schließen". In der daraufhin aufgerufenen Procedure steht nur ein Close drin - mehr nicht. Wenn ich jetzt mehrmals auf Schließen klicke, tritt das Phänomen wieder auf. Leider auch mit MessageDlg()!

Soll ich dazu ein neues Thema auchmachen?
Falls jemand eine Antwort kennt, kann die natürlich auch hier und jetzt geschrieben werden.

Gute Nacht, Alex

[Astat]

Zitat:

Zitat von Schwedenbitter

Zu früh gefreut!

Als Ansatz..

Delphi-Quellcode:

var
  _Action: TCloseAction = caNone;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Action <> _Action then begin
    _Action := Action;
    halt(messagebox(
      handle,
      PChar('foo'),
      PChar('bar'),
      MB_OK    or MB_SYSTEMMODAL
      ));
  end else
    Action := caNone;
end;

lg. Astat

[Schwedenbitter]

Danke Astat!

Entsprechend Deiner Anregung habe ich es jetzt so gemacht:

Delphi-Quellcode:

Var
  CloseDialog : Boolean = False;

...

Procedure TChat.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
begin
  CanClose:=False;                        
  If Not CloseDialog Then
  Begin
    CloseDialog:=True;
    If MessageBox(0, 'Wollen Sie das Programm wirklich beenden?',
      'Bestätigen', mb_YESNO Or mb_IconQuestion) = idYES Then
      CanClose:=True;
    CloseDialog:=False;
  End;
End;

Ich dachte, es müsste auch ohne zusätzliche Variable eleganter zu lösen sein.

Gruß, Alex