case of und MessageDlg Abfrage

[Sharky]

Hai flomei,

könnte etwas so aussehen

http://www.sharkys-home.de/smiles/finger.gif

Delphi-Quellcode:

Var
 Language : Integer = 0;
 Meldung : Array [0..1] Of String = ('Vielen Dank für den Einsatz von' +#13#10
        +'    ..:: Encrypt / Decrypt ::..'+#13+#10
        +'Beenden?'
        ,
        'Thanks for using' +#13+#10
        +'    ..:: Encrypt / Decrypt ::..'+#13+#10
        +'Quit?');

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
 CanClose := MessageDlg(Meldung[Language], mtInformation,[mbYes, mbNo],0)= mrYes;
end;