Mit application.message klappt das gaaaanz hervorragend
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
antwort : integer;
begin
antwort := application.messagebox('Ja oder Nein?','Frage',32+3);
if antwort=idyes then
begin
showmessage('Antwort war ja / Speichern');
end
else
if antwort=idno then
begin
showmessage('Antwort war nein / Nicht Speichern');
end
else showmessage('Antwort war Abbrechen');
end;
[edit=sakura] [delphi]Tags Mfg, sakura[/edit]