uniGUIDialogs / DESKTOP / MessageDlg: Set mbOK, mbYes, mbNo, mbCancel Button Captions At Runtime - How ?

[andyhill]

I have tried the following but it fails

  MessageDlg('Choose', mtConfirmation, [mbOK, mbYes, mbNo, mbCancel], MyCallback);
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[0].innerHTML="A"');
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[1].innerHTML="B"');
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[2].innerHTML="C"');
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[3].innerHTML="D"');
 

Please advise - thanks

[Hayri ASLAN]

1 hour ago, andyhill said:

I have tried the following but it fails

  MessageDlg('Choose', mtConfirmation, [mbOK, mbYes, mbNo, mbCancel], MyCallback);
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[0].innerHTML="A"');
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[1].innerHTML="B"');
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[2].innerHTML="C"');
  UniSession.AddJS('Ext.select("#ext-messagebox .x-button .x-text-el").elements[3].innerHTML="D"');
 

Please advise - thanks

Hello

Please try this

  MessageDlg('Dialog1', mtWarning, [mbOK, mbYes, mbNo, mbCancel], DCallBack1);
  UniSession.AddJS('Ext.select("#messagebox-1001 .x-btn").elements[0].querySelectorAll(''[data-ref="btnInnerEl"]'')[0].innerHTML="A"');
  UniSession.AddJS('Ext.select("#messagebox-1001 .x-btn").elements[1].querySelectorAll(''[data-ref="btnInnerEl"]'')[0].innerHTML="B"');
  UniSession.AddJS('Ext.select("#messagebox-1001 .x-btn").elements[2].querySelectorAll(''[data-ref="btnInnerEl"]'')[0].innerHTML="C"');
  UniSession.AddJS('Ext.select("#messagebox-1001 .x-btn").elements[3].querySelectorAll(''[data-ref="btnInnerEl"]'')[0].innerHTML="D"');

 

[andyhill]

Perfect - Thank You

 

[Sherzod]

9 hours ago, andyhill said:

I have tried the following but it fails

Hello @andyhill

Thanks @Hayri ASLAN

Another solution based on this post:

 

Solution:

procedure TMainForm.UniButton4Click(Sender: TObject);
begin
  UniSession.AddJS('Ext.MessageBox.buttonText = {ok: "OK!",cancel: "Cancel!",yes: "Yes!",no: "No!"};');
  MessageDlg('Dialog1', mtWarning, [mbOK], DCallBack1);
  // Here (after) you can set default values
  // UniSession.AddJS('Ext.MessageBox.buttonText = {ok: "OK",cancel: "Cancel",yes: "Yes",no: "No"};');
end;

 

[andyhill]

Thanks Sherzod