Programm beenden: Ja oder Nein?

[fkerber]

Hi!

Leserlich sieht das ganze so aus:

Delphi-Quellcode:

if Application.MessageBox('Programm Beenden?', 'Tital', MB_ICONQUSTION + MB_YESNO) = IDYES then 
begin 
  Application.Terminate; 
end;

Dann versteht man es eigentlich auch, oder?


Ciao fkerber

[Luckie]

Da es sich um eine bitweise or-Verknüpfung handelt nicht mit + verknüpfen, sondern mit or.

Und im richtigen Ereignis sieht es so korrekt aus:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('Anwendung schließen?', 'Projekt1', MB_ICONQUESTION or MB_YESNO) = ID_YES then
    CanClose := True
  else
    CanClose := False;
end;

[fkerber]

Hi!

Warum geht es auch mit + und warum sollte man dann or benutzen?

Eben war noch ein Schreibfehler drin, also hier mal korrekt:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if Application.MessageBox('Programm Beenden?', 'Titel', MB_ICONQUESTION + MB_YESNO) = IDYES then
   CanClose:=true
 else
   CanClose:=false;
end;

Ciao fkerber

[Frankie]

Danke. Hab den entsprechenden Eintrag in der Delphi Hilfe gefunden. THX. :thuimb:

[Sharky]

Zitat:

Zitat von fkerber

...Warum geht es auch mit + und warum sollte man dann or benutzen?....

Weil die Bits zufällig so gesetzt sind das es geht. ;-)

z.B.:

Code:

  MB_YESNO        = 0001 = Dezimal 1
  MB_ICONQUESTION = 0010 = Dezimal 2

Wenn Du das addierst kommt 0011 raus. Du kannst also noch immer prüfen welcher der Beiden werte gesetzt wurde weil jeder aus einem eindeutigen bit besteht.
Aber was machst Du jetzt:

Code:

  MB_YESNO        = 0101 = Dezimal 5
  MB_ICONQUESTION = 0011 = Dezimal 3

Bei der Addition bekommst Du 1010 = Dezimal 8 Jetzt wird es schwer zu prüfen ob die Bits für Button MB_YESNO gesetzt wurden. Genauer gesagt es ist unmöglich ;-)
Bei einer Binären OR-Operation bekommst Du aber:

Code:

   0101
OR 0011
   ----
   0111

Und somit könntest Du es wieder mit einer AND Operation ausmaskieren.

[fkerber]

Hi!

Danke für die Info, Sharky.
Hatte den Quellcode so von Sakura aus dem anderen Thread übernommen.

Ciao fkerber