unigui ajax交互

unigui ajax交互

//'<button onclick="ajaxRequest(Menu.UnimList1, ''test'', [''param0=0'',''param1=1'']);">按钮</button>'
procedure TMenu.UnimFormCreate(Sender: TObject);
begin
  unimList1.Items.Add(
  '<h1>商品档案</h1>'
  +'<button onclick="ajaxRequest(Menu.UnimList1, ''spda'', [' + QuotedStr('class=TSpda') + ']);">打开</button>'
      );
end;

procedure TMenu.UnimList1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
  try
    TUnimFormClass(FindClass(Params['class'].Value)).Create(UniApplication).Show;
  except
    on E: Exception do
      ShowMessage(className+'正在开发..');
  end;
end;

 

//'<button onclick="ajaxRequest(Menu.UnimList1, ''test'', [''param0=0'',''param1=1'']);">按钮</button>'
procedure TMenu.UnimFormCreate(Sender: TObject);
begin
    for var i: Integer := 0 to 4 do    begin
      unimList1.Items.Add(
      '<h1>'+i.ToString+'</h1>'
      +'<button onclick="ajaxRequest(Menu.UnimList1, ''test'', [' + QuotedStr('id='+i.ToString) + ']);">按钮</button>'
      );
    end;
end;

procedure TMenu.UnimList1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
if SameText('test', EventName) then
  ShowMessage(Params['id'].Value);
end;

 

procedure TMenu.UnimFormCreate(Sender: TObject);
begin
    for var i: Integer := 0 to 4 do    begin
      unimList1.Items.Add(
'<h1>'+i.ToString+'</h1>'
+' <button onclick="abtnclick('''+i.ToString+''')">按钮</button>'
+   ' </div>  '
      );
    end;
(* 按钮点击事件JS处理代码
创建aaa.js文件，内容如下：
function abtnclick(id){
  ajaxRequest(Menu.UnimList1, 'test',['id=' + id]);
}
ServerModule.CustomFiles 添加一行：
files\aaa.js
*)

end;

procedure TMenu.UnimList1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
if EventName ='test' then
UnimList1.Items[strtoint(Params.Values['id'])]:=
'  <h1>'+Params.Values['id']+' 已处理</h1>'
+' <button disabled  onclick="abtnclick('''+Params.Values['id']+''')">按钮</button>'
+   ' </div>  '
  ;
end;