procedure TMainForm.UniDBTreeGrid2AjaxEvent(Sender: TComponent;
EventName: string; Params: TUniStrings);
begin
UniServerModule.logger.AddLog('事件:'+UpperCase(EventName));
UniServerModule.logger.AddLog('Params:'+UpperCase(Params.Text));
end;
procedure TJDSQ_Frame.UniDBGrid4AjaxEvent(Sender: TComponent; EventName: string;
Params: TUniStrings);
begin
if UpperCase(EventName) = 'CELLCLICK' then
begin
if (Params.Values['c']='5') then
begin
MessageDlg('是否进行该操作', mtConfirmation, mbYesNo,
procedure(Sender: TComponent; Res: integer)
begin
case Res of
mrYes :
begin
end;
mrNo :
begin
end;
end;
end
);
end;
end;