Try this approach too: procedure TMainmForm.UnimButton1Click(Sender: TObject); begin messagedlg('test', mtError, [mbOK], Nil); UniSession.AddJS('Ext.select("#ext-messagebox .x-messageboxtitle .x-text-el").setText("New caption")'); UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[0].innerHTML="OK!!"'); end;  
    • Like
    1