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.