1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-11 20:05:03 -05:00
Simba/Tests/PS/messagebox.simba
2010-09-11 14:01:33 +02:00

18 lines
557 B
Plaintext

program new;
begin
ShowMessage('ShowMessage!');
Writeln('MessageBox -> ');
case MessageBox('This is the text','My Caption', mbYesNoCancel) of
mrYes : Writeln('Pressed yes!');
mrNo : Writeln('Pressed no!');
mrCancel : Writeln('Pressed Cancel!');
end;
Writeln('MessageDlg -> ');
case MessageDlg('Caption','Press a button!',mtError, [mbAbort,mbYes,mbIgnore]) of
mrAbort : Writeln('Pressed abort!');
mrYes : Writeln('Pressed Yes');
mrIgnore: Writeln('Pressed Ignore');
mrCancel: Writeln('pressed Cancel');
end;
end.