UniGUI 中"TUniStringGrid"添加按钮列

procedure TMainForm.UniStringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  var Value: string; Attribs: TUniCellAttribs);
begin
  if (ACol = 1)  then    begin            //第二列 为 按钮列
    Value:='<button  onclick="ajaxRequest('
         +UniStringGrid1.JSName+','        // 谁发起的 ，就在谁的Delphi里OnAjaxEvent事件里接收
         + QuotedStr('audit')                   //通过函数名 连接JS和Delphi
         +',[''id='+inttostr(ARow)+''']);">'   //要传送的参数名和值，可以多个，以逗号分开
         +'审核</button> ';
  end;
end;

procedure TMainForm.UniStringGrid1AjaxEvent(Sender: TComponent;
  EventName: string; Params: TUniStrings);
begin
 if EventName = 'audit' then     //通过函数名 来 连接 JS 和 Delphi
   showmessage(Params['id'].Value);
end;