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

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;
