InputStr Function |
Unit
QESBPCSMsgs
Declaration
Function InputStr(const Caption, Prompt: string; var S: string): Boolean;
Description
If the user Cancels, then the function returns False. Ensures Default Cursor is displayed, preserves state of cursor.
Parameters |
Caption | Info to Display at the top of the Dialog. |
Prompt | Info to Display to the left of the Input Field. |
S | Input & Output Value to be displayed & edited. |
Returns
True if Ok is Clicked, False if Cancel is Clicked
Category
Routines that produce DialogsImplementation
function InputStr (const Caption, Prompt: string; var S: string): Boolean; var Hold: TCursor; begin Hold := Screen.Cursor; Screen.Cursor := crDefault; try Result := InputQuery (Caption, Prompt, S); finally Screen.Cursor := Hold; end; End; |
|