Dúvida Caption MessageDlg

[Gregue]

Olá

 

Como alterar o caption da MessageDlg utilizando:

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

 

Dessa forma sem problemas, funcionando:

 

  MessageDlg('Teste MessageDlg'+

  #13#10+

  ' Confima ?'+

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

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

 

 

Minha dúvida é, como incluir UniSession.AddJS no exemplo abaixo:

 

procedure TMainForm.UniBitBtn1Click(Sender: TObject);

var

  vConfirmacao: Boolean;

begin

        MessageDlg('Este é um teste de Mensagem. Confirma ?', mtConfirmation, mbYesNo,

           procedure (Sender: TComponent; Res: Integer)

           begin

              vConfirmacao := Res = mrYes;

              if vconfirmacao then

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

              else

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

           end);

end;

 

 

Se alguém puder postar um exemplo, agradeço.