[TWebApp.Events] evLocate=x
procedure TDataModuleHTQ4.Init; begin if assigned(pWebApp) then begin AddAppUpdateHandler(WebAppUpdate); WebAppUpdate(pWebApp); end; end; procedure TDataModuleHTQ4.WebAppUpdate(Sender: TObject); begin {Set the list of EventMacros here} with pWebApp.EventMacros do begin Clear; Add('evLocate=x'); end; end;Reference: htqry4DM.pas