| ValidationMsg Procedure | 
Unit
QESBPCSMsgs
Declaration
Procedure ValidationMsg(const Field, Msg: string);
Description
Ensures Default Cursor is displayed, preserves state of cursor.
| Parameters | 
| Field | Name of the Field that had the problem. | 
| Msg | Message to Display. | 
Category
Routines that produce DialogsImplementation
 
| procedure ValidationMsg (const Field, Msg: string);
var
     Hold: TCursor;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          MessageDlg (rsField + ': ' + Field + #13 + RsReason + ': ' + Msg,
               mtError, [mbOK], 0);
     finally
          Screen.Cursor := Hold;
     end;
End; | 
|  |