mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 10:14:03 +02:00
16 lines
360 B
ObjectPascal
16 lines
360 B
ObjectPascal
|
|
Uses forms, lcltype, dialogs, controls;
|
|
|
|
procedure TryInputQuery;
|
|
var QueryResult: boolean;
|
|
userstring: string;
|
|
begin
|
|
if InputQuery ('Question', 'Type in some data', TRUE, userstring)
|
|
then ShowMessage (userstring)
|
|
else
|
|
begin
|
|
InputQuery ('Don''t be silly', 'Please try again', userstring);
|
|
ShowMessage (userstring)
|
|
end
|
|
end;
|