紅魚兒

function AddLabel(aJsName,aEventName,aID,aCaption:string):string;
begin
  result:=  Format('<a class="btnopbtn" style="color: #148a14" onclick="ajaxRequest(%s,''%s'',[''id=%s'']);">%s</a>｜',[aJsName,aEventName,aID,aCaption]);
end;

  label1.Text:=AddLabel(Label1.JSName,'add','id1','增加')+
               AddLabel(Label1.JSName,'editrow','id2','編輯');

procedure TMainForm.Label1AjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings);
var
  id:string;
begin
//
  if EventName='add' then
  begin
    id:=Params.Params['id'].AsString;
    ShowMessage('add:'+id);
  end;
  if EventName='editrow' then
     ShowMessage('editrow');

end;