MessageDlg problems

[petr.nehez]

Hi,

 

I'd like to show error message with red cross (if possible) with MessageDlg procedure but the shown dialog has still the title "Confirmation" although I pass 'mtError' parameter.

MessageDlg('AAA', mtError, [mbOK]);

Is there a bug?

 

Thanks.

[dionel1969]

It is a bug. It happens with mtWarning, mtError and mtInformation.

[petr.nehez]

OK, I thought it.

 

I made a workaround by using of instance of TExtMessageBoxSingleton.

[petr.nehez]

I have another question.

 

Can someone give me a solution how to pass a callback function to TExtMessageBoxSingleton's methods like Alert etc?

I'd like to have customized message dialogs with callbacks but I don't know how to do it.

 

Thanks.

[petr.nehez]

Can someone give me a solution how to pass a callback function to TExtMessageBoxSingleton's methods like Alert etc?

I'd like to have customized message dialogs with callbacks but I don't know how to do it.

 

Nevermind, I've already found a solution which works:

      MF := UniApplication.UniMainModule.MainForm;
     if (MF <> nil) and (MF is TUniForm) and (TUniForm(MF).WebForm <> nil) then
     begin
       EF := TUniExtFormAccess(TUniForm(MF).WebForm);
       CBF := TCallbackExtFunction.Create(aCallback);
       CBF.FAjaxIntercept := EF.AjaxParamIntercept;
       CBF.FAjaxParamListIntercept := EF.AjaxParamListIntercept;
       CBF.Ajax('callback', ['ButtonID', '%0'], True);

...

procedure TCallbackExtFunction.HandleEvent(const AEventName: string);
var
 MR: Integer;
begin
 if SameText(AEventName, 'callback') then
 begin
   if Assigned(FCallback) then
   begin
     if (ButtonsDict = nil) or not ButtonsDict.TryGetValue(ParamAsString('ButtonID'), MR) then
       MR := mrNone;
     FCallback(MR);
   end;
   FCallback := nil;
 end
 else
   inherited;
end;

initialization
 ButtonsDict := TTextDictionary<Integer>.Create;
 ButtonsDict.AddOrSetValue('ok', mrOk);
 ButtonsDict.AddOrSetValue('cancel', mrCancel);
 ButtonsDict.AddOrSetValue('yes', mrYes);
 ButtonsDict.AddOrSetValue('no', mrNo);

[Farshad Mohajeri]

Hi,

 

I'd like to show error message with red cross (if possible) with MessageDlg procedure but the shown dialog has still the title "Confirmation" although I pass 'mtError' parameter.

MessageDlg('AAA', mtError, [mbOK]);

Is there a bug?

 

Thanks.

 

Fixed.