Mega Code Archive

 

Categories / Delphi / Functions

 

Inputquery - display a dialog that asks for user text input dialogs unit

function InputQuery ( const Caption, Prompt : string; var UserValue : string ) : Boolean; Description The InputQuery function displays a simple dialog box with the given Caption and Prompt message. It asks the user to enter data in a text box on the dialog. If the user presses OK, the entered data is stored in the UserValue variable and the return value is True. If the user cancels the dialog, then the return value is False and any entered data is lost. Use to ask the user for simple data such as a name. Related commands InputBox Display a dialog that asks for user text input, with default PromptForFileName Shows a dialog allowing the user to select a file ShowMessage Display a string in a simple dialog with an OK button ShowMessageFmt Display formatted data in a simple dialog with an OK button ShowMessagePos Display a string in a simple dialog at a given screen position Example code : Keep asking the user for their name until they do so var value : string; begin // Keep asking the user for their name repeat if not InputQuery('Test program', 'Please type your name', value) then ShowMessage('User cancelled the dialog'); until value <> ''; // Show their name ShowMessage('Hello '+value); end; Show full unit code A dialog is displayed asking for the user name. If the user types their name, 'Fred' and hits OK : Hello Fred is then displayed