ValidationMsg Procedure
Displays a Validation (Error) Message Dialog.

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 Dialogs

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com