| WarningMsg Procedure | 
Unit
QESBPCSMsgs
Declaration
Procedure WarningMsg(const Msg: string);
Description
Ensures Default Cursor is displayed, preserves state of cursor.
| Parameters | 
| Msg | Message to Display. | 
Category
Routines that produce DialogsImplementation
 
| procedure WarningMsg (const Msg: string);
var
     Hold: TCursor;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          MessageDlg (Msg, mtWarning, [mbOK], 0);
     finally
          Screen.Cursor := Hold;
     end;
End; | 
|  |