Nix tun

[Die Muhkuh]

Mir is kein besserer name für den Thread eingefallen!

Delphi-Quellcode:

var
  i: Integer;
begin
i := Aplication.messagebox('Beenden?','Bestätigung',4+32);
if i = IDYES then //tu was;
if i <> IDCANCEL then // hier soll er dann nixtun!

Wenn man dann auf cancel drückt dann soll einfach die Messagebox verschwinden und man kann beim programm weiter machen!
Das beispiel oben ist wenn man ausversehen auf beenden drückt!

Spider

[Luckie]

Delphi-Quellcode:

begin
var 
  i: Integer; 
begin 
  i := Aplication.messagebox('Beenden?','Bestätigung',4+32); 
  if i = IDYES then
  begin
    //tu was; 
  end
  else
    exit;
end:

Wobei das Exit überflüssig ist, nur um es deutlich zumachen.

[Die Muhkuh]

Thanks Luckie

[Dannyboy]

Nun optimieren wir das noch ein wenig, lassen das "i" weg und schreiben
"Application" mit 2 "p".

Delphi-Quellcode:

...   
if Application.messagebox('Beenden?','Bestätigung',4+32) = IDYES then 
  begin 
    //tu was; 
  end;
...

[Generalissimo]

geht auch so

Code:

If MessageDlg('Nachricht',mtConfirmation,[mbYes,mbNo],0)=mrOK then
 //mach was

ansonsten passiert nix

[Luckie]

Zitat:

Zitat von Dannyboy

Nun optimieren wir das noch ein wenig, ...

Ich wollte, dass er seinen Code noch wiedererkennt. :wink:

[Dannyboy]

@ Generalissimo. Jup, Deine Variante würde ich auch präferieren.

[Luckie]

Und warum?

[Alexander]

Weil es im Prinzip das gleich eist :mrgreen:
Musste jetzt mal sein ;-)

[Generalissimo]

Das benutzt die Standard-Windows-Layouts bei Meldungen.
Probiers mal aus. Ansonsten bei noch mehr notwendigen Wissen die OH durchblättern.