Gregue Posted December 14, 2017 Share Posted December 14, 2017 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.