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