unigui ajax交互

   Text := '<input  style="cursor:pointer;"  type="button"  class="but_zhy" value="按钮" οnclick="ajaxRequest(MainForm.UniDBGrid1, ''Test'', [''param0=delete'']);" />';

 

procedure TMainForm.UniDBGrid1AjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings);
begin
  if EventName = 'Test' then
  begin
    if Params['param0'].Value = 'delete' then
      UniEdit1.Text := TimeToStr(now);
  end;
end;