How to call Delphi function in ClientEvent

[Sherzod]

On 3/9/2021 at 7:59 PM, Masteritec said:

Grid3.zip 146.55 kB · 5 downloads

Unclear, but in this test case you are not using UniSession.SendResponse ('true / false')

[Masteritec]

Hi, Please see below code and sample Grid4.

If LastName and FirstName is empty, other columns is not allow edit, but if LastName or FirstName column change position, below code will wrong.

if ((context.field == 3) || (context.field == 4)
      || (context.field == 5) || (context.field == 6)
      || (context.field == 7) || (context.field == 8)) { 
    return ajaxRequest(this, "GridEditing", [], false).responseText == "true";
  };

Quote

procedure TMainForm.UniDBGrid1AjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings);
begin
  if EventName = 'GridEditing' then
  begin
    if (ClientDataSet1.FieldValues['LastName'] = '') and (ClientDataSet1.FieldValues['FirstName'] = '') then
    begin
      UniSession.SendResponse('false');
    end
    else
    begin
      UniSession.SendResponse('true');
    end;
  end;
end;

 

Quote

function beforeedit(editor, context, eOpts)
{
  if ((context.field == 3) || (context.field == 4)
      || (context.field == 5) || (context.field == 6)
      || (context.field == 7) || (context.field == 8)) { 
    return ajaxRequest(this, "GridEditing", [], false).responseText == "true";
  };
}

 

Grid4.zip

[Sherzod]

29 minutes ago, Masteritec said:

Grid4.zip 145.88 kB · 0 downloads

Hi,

OK, I'll check your testcase.

[Sherzod]

1 hour ago, Masteritec said:

Grid4.zip 145.88 kB · 0 downloads

Can you try to use this approach?

1. 

function beforeedit(editor, context, eOpts)
{
    return ajaxRequest(this, "GridEditing", ["colIdx=" + context.field], false).responseText == "true";
}

2. 

procedure TMainForm.UniDBGrid1AjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings);
var
  ColIdx: Integer;
begin
  if EventName = 'GridEditing' then
  begin
    ColIdx := Params.Values['colIdx'].ToInteger;

    if ((Sender as TUniDBGrid).Columns[ColIdx].FieldName <> 'LastName') and
       ((Sender as TUniDBGrid).Columns[ColIdx].FieldName <> 'FirstName') and
       (ClientDataSet1.FieldValues['LastName'] = '') and
       (ClientDataSet1.FieldValues['FirstName'] = '')
    then
    begin
      UniSession.SendResponse('false');
    end
    else
    begin
      UniSession.SendResponse('true');
    end;
  end;
end;

 

[Masteritec]

Hi, is OK.

Thanks