ConfirmMsg Function |
Unit
QESBPCSMsgs
Declaration
Function ConfirmMsg(const Msg: string): Boolean;
Description
If Yes is pressed then the Result is True. Ensures Default Cursor is displayed, preserves state of cursor.
Parameters |
Msg | Message to Display. |
Returns
True if Yes is Clicked, False if No is Clicked
Category
Routines that produce DialogsImplementation
function ConfirmMsg (const Msg: string): Boolean; var Hold: TCursor; begin Hold := Screen.Cursor; Screen.Cursor := crDefault; try Result := MessageDlg (Msg, mtConfirmation, [mbYes, mbNo], 0) = mrYes; finally Screen.Cursor := Hold; end; End; |
|