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

MoneyDialogs

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

Image1.gif (2336 bytes)

 

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

Image3.gif (3209 bytes)

 

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;

Image2.gif (3205 bytes)

 

 

Example4:

var
  Value:String;
begin
  Value:='This is default value';
  if MoneyInputQuery('This is caption','This is promt',Value) then
    MoneyShowMessage(Value);
end;

Image4.gif (3153 bytes)