
[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