资讯详情

unigui ajax交互

procedure TMenu.UnimFormCreate(Sender: TObject);
beginfor var i: Integer := 0 to 4 do    beginunimList1.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;