| ConfirmCancelMsg Function | 
Unit
QESBPCSMsgs
Declaration
Function ConfirmCancelMsg(const Msg: string; var AnsYes: Boolean): Boolean;
Description
If Cancel is pressed then the Result is False, Yes or No give a Result of True, you then check AnsYes to see if the Yes button was pressed. Ensures Default Cursor is displayed, preserves state of cursor.
| Parameters | 
| Msg | Message to Display. | 
| AnsYes | Returns True if Yes is Clicked, False if No is Clicked | 
Returns
True if Yes or No are Clicked, False if Cancel is Clicked
Category
Routines that produce DialogsImplementation
 
| function ConfirmCancelMsg (const Msg: string; var AnsYes: Boolean): Boolean;
var
     Hold: TCursor;
     Ans: Word;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          Ans := MessageDlg (Msg, mtConfirmation, [mbYes, mbNo, mbCancel], 0);
          Result := Ans <> mrCancel;
          AnsYes := Ans = mrYes;
     finally
          Screen.Cursor := Hold;
     end;
End; | 
|  |