0 Пользователей и 1 Гость просматривают эту тему.
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;