[how to make set focus on button messagedlg when the dialog show?]

Frustating.. 

 

Hi,

 

Try:

procedure TMainForm.BSaveClick(Sender: TObject);
begin
if strlen(pchar(trim(EKode.Text)))=0 then
  begin
  UniSession.AddJS('Ext.override(Ext.MessageBox, {defaultButton: 0});');
  Messagedlg('Kolom Kode Harus Di isi !!!', mtwarning, [mbOk], CallBack);
  
  //EKode.SetFocus;       <-----------------

  Exit;
  end;

if strlen(pchar(trim(ENama.Text)))=0 then
  begin
  UniSession.AddJS('Ext.override(Ext.MessageBox, {defaultButton: 0});');
  Messagedlg('Kolom Name Harus Di isi !!!', mtwarning, [mbOk], CallBack);
  
  //ENama.SetFocus;       <-----------------

  Exit;
  end;

.....

Best regards.

I got same problem.. that code sometimes work, sometimes no action..  Finally i use native JS "alert" to display message box