Jump to content
uniGUI Discussion Forums
Sign in to follow this  

Dúvida Caption MessageDlg

Recommended Posts



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'+
  ' 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);
  vConfirmacao: Boolean;
        MessageDlg('Este é um teste de Mensagem. Confirma ?', mtConfirmation, mbYesNo,
           procedure (Sender: TComponent; Res: Integer)
              vConfirmacao := Res = mrYes;
              if vconfirmacao then
                 Memo1.Lines.Add('Confirmacao = True')
                 Memo1.Lines.Add('Confirmacao = False');
Se alguém puder postar um exemplo, agradeço.

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this