mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 12:33:49 +02:00
99df3c959b
* Removed duplicate documentation nodes from the dialogs.xml file. * Improved the docs and layout of the InputBox function. * Supplied an external sample of the InputBox function. * Improved the layout of the InputQuery docs. git-svn-id: trunk@11123 -
14 lines
292 B
ObjectPascal
14 lines
292 B
ObjectPascal
uses
|
|
Forms, LCLType, Dialogs, Controls;
|
|
|
|
procedure TryInputBox;
|
|
var
|
|
userstring: string;
|
|
begin
|
|
userstring := InputBox ('Get some text input',
|
|
'Please type in some information',
|
|
'Some sample text');
|
|
ShowMessage(userstring);
|
|
end;
|
|
|