mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 11:55:02 -05:00
23 lines
778 B
Plaintext
23 lines
778 B
Plaintext
program new;
|
|
var
|
|
Value : string;
|
|
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;
|
|
Writeln('InputQuery -> ');
|
|
Value := 'Edit.. or not?';
|
|
Writeln(format('Result of inputquery = [%s] the value = [%s]',[booltostr(InputQuery('Enter something funny','ENTER HERE',value)),value]));
|
|
end.
|