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