"Warnung" Button vorher Einblenden?

07/03/2012 15:55 Yeru#1
Hey,

brauch emal etwas eure Hilfe, wie erstelle ich so ein "Warn Button"?

Beispielweise;

User XY drückt auf "Liste leeren" davor soll dann erst ein Fenster kommen mit "Ja - Löschen" oder "Nein - Nicht Löschen (Abbrechen)"

Liste Leeren Button sieht so aus:

Code:
begin
  lst1.Clear;
end;
Es ist Delphi
07/03/2012 16:07 tnd0#2
dialogs (oder nur in delphi XE2 FMX.dialogs bzw. VCL.Dialogs) einbinden.

und dann

Code:
if Dialogs.MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    Dialogs.MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;
[Only registered and activated users can see links. Click Here To Register...]