Jump to content


Photo

Dúvida Caption MessageDlg

messagedlg unisession

  • Please log in to reply
No replies to this topic

#1 Gregue

Gregue

    Member

  • Members
  • PipPip
  • 12 posts

Posted 14 December 2017 - 12:09 PM

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.
 
 
 

  • 0




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users