Jump to content
uniGUI Discussion Forums
Sign in to follow this  
Gregue

Dúvida Caption MessageDlg

Recommended Posts

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.
 
 
 

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  

×