All functions for MoneyDialogs are very easy to use. Just add "Money" in front of the VCL's dialog functions and you are set.

Type

TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);

 

TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,mbAll, mbNoToAll, mbYesToAll, mbHelp);

 

TMsgDlgButtons = set of TMsgDlgBtn;

 

function MoneyMessageDlgPos(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer;

 

function MoneyMessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons:TMsgDlgButtons; HelpCtx: Longint): Integer;

 

procedure MoneyShowMessagePos(const Msg: string; X, Y: Integer);

 

procedure MoneyShowMessage(const Msg: string);

 

procedure MoneyShowMessageFmt(const Msg: string; Params: array of const);

 

function MoneyInputQuery(const ACaption, APrompt: string; var Value: string): Boolean;

 

function MoneyConfirm(const Msg:String): Boolean;

 

Example1:

MoneyShowMessage(‘This is a simple message’);

Example2:

MoneyMessageDlg('This is line one of three'+#13+'This is line two of three'+#13+'This is line three of three' ,mtInformation,[mbOk],0);

Example3:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if DataSource1.State in [dsEdit,dsInsert] then
     case MoneyMessageDlg('Save changes?',mtConfirmation,[mbYes,mbNo,

                                              mbCancel],0) of
        mrYes:Table1.Post;

        mrNo:Table1.Cancel;
     else
        CanClose:=False;
    end;
end;

Example4:

var

  Value:String;

begin

  Value:='This is default value';

  if MoneyInputQuery('This is caption','This is promt',Value) then

    MoneyShowMessage(Value);

end;