ConfirmMsg Function
Displays a Confirmation (ie Yes/No) Message Dialog.

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 Dialogs

Implementation

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;


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