0 Members and 1 Guest are viewing this topic.
procedure Execute(var State: Integer);var BackgroundObject : TComponent; AObjectLinks : TASEButton; AObjectLinkAction : TComponent;begin AObjectLinks := TASEBindings.Create; AObjectLinkAction := AObjectLinks.LinkAdd('PopopMenu'); AObjectLinks := FindObject('ButtonOpen').Get('PopupMenu');AObjectLinks.ExecuteAction('PopopMenu'); AObjectLinks.Free;end;