Jump to content

Question about title messagedlg - Need help


Gregue

Recommended Posts

Hello

 

How to change the title of the messagedlg using:

UniSession.AddJS('Ext.get("messagebox-1001_header_hd-textEl").setHTML("Caption text")');

 

ok, that's how it works for me:

 

  MessageDlg('test messagedlg'+

  #13#10+

  ' Confim ?'+

  #13#10, mtWarning, mbYesNo, x...);

  UniSession.AddJS('Ext.get("messagebox-1001_header_hd-textEl").setHTML("Caption text")');

 

 

My question: how to include UniSession.AddJS in the example below:

 

procedure TMainForm.UniBitBtn1Click(Sender: TObject);

var

  vConfirm: Bool;

begin

        MessageDlg('Message Test. Confirm ?', mtConfirmation, mbYesNo,

           procedure (Sender: TComponent; Res: Integer)

           begin

              vConfirm := Res = mrYes;

              if vconfirm then

                 Memo1.Lines.Add('Confirm = True')

              else

                 Memo1.Lines.Add('Confirm = False');

           end);

end;

 

I need an example, please. 

 

Thank you

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...