| 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; |
|
|