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