WarningMsg Procedure
Displays a Warning Message Dialog.

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 Dialogs

Implementation

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;


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