unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
function MyQuestionDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): TModalResult;
begin
// unit Dialogs;
// function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;
// Buttons: TMsgDlgButtons): TForm; overload;
// Error on parameter
// with CreateMessageDialog(aCaption, aMsg, DlgType, Buttons) do
with CreateMessageDialog(aMsg, DlgType, Buttons) do
try
HelpContext := HelpCtx;
Result := ShowModal;
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Error on parameter
// MyQuestionDlg('Can''t proceed','What is your username?', mtError, [mrYes, 'Okay, I''ll give it'],0);
// Even changing from mrYes to mbYes, error continues
// MyQuestionDlg('Can''t proceed','What is your username?', mtError, [mbYes, 'Okay, I''ll give it'],0);
MyQuestionDlg('Can''t proceed','What is your username?', mtError, [mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose], 0);
// No customized caption at the end
end;
end.