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.

[Luckie]

Und was benutzt die Messagebox? :roll:

[Generalissimo]

Keinen Hilfekontext :wink:

[Luckie]

Und was ist mit diesem Flag:

Zitat:

MB_HELP: Adds a Help button to the message box. Choosing the Help button or pressing F1 generates a help event.

[Generalissimo]

Oh :oops: , wusste ich noch gar nicht.

Ist damit direkt ein Hilfe-Index verknüpfbar?

[Dannyboy]

@ Generalissimo:

Zitat:

MessageDlg('Nachricht',mtConfirmation,[mbYes,mbNo],0)=mrOK then

Mmmmhh, ich bin mir da nicht so sicher. :gruebel:

Ich denke, dass das Result in Deinem Beispiel eher (bei Klick auf mbYes)
auf mrYes steht und nicht auf mrOk, oder?

[Generalissimo]

@Dannyboy: Ja hast Recht. Hab den Teil nur aus nem Prog von mir herauskopiert und an die Fragestellung angepasst.

Richtig ist:

Delphi-Quellcode:

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

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]