ActionPopUpMenu

0

Jak zrobić PopUpMenu w stylu ActionMainMenuBar ?
Szukam, kombinuje z TCustomActionPopUpMenu ale coś nie idzie.
Może ktoś wie jak dynamicznie dodawać elementy do ActionMainMenuBar, to też by mi troche pomogło.
Głupio by było gdyby w moim programie mainmenu wyglądało tak ładnie, a popupy po staremu :-/

Albo jakiś komponent dla D7, chodzi o taki popup jeki jest w MS Office XP, niestety na torry brak :-(

0

Wydaje mi się że to czego szukasz jednak jest na torry http://www.torry.net/vcl/menus/menuenhancments/xpmenu.zip .

0

Dzięki dzięki dzięki dzięki [prosze]
[glowa] Jak ja to mogłem przeoczyć !! [glowa]

Kurde, cały dzień sie nad tym męczyłem, a jak już wymęczyłem to dopiero przeczytałem post powyżej :p . A oto moje wypociny jakby kogoś interesowało(na pewno troche jeszcze do poprawki, ale działa):

type
  TForm1 = class(TForm)
    ActionManager: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    {...}

var
  ActionPopupMenu: TCustomActionPopupMenu;

  {...}

procedure TForm1.FormCreate(Sender: TObject);
var
  ActionClientItem: TActionClientItem;
  SubActionClientItem: TActionClientItem;
begin
  ActionClientItem := ActionManager.ActionBars.Add.Items.Add;

  //budowanie drzewa np takiego jak to:
  //  Action1
  //  Action2
  //  Action3 > Action 4
  //         Action 5
  ActionClientItem.Items.Add.Action := Action1;
  ActionClientItem.Items.Add.Action := Action2;
  SubActionClientItem := ActionClientItem.Items.Add;
  SubActionClientItem.Action := Action3;
  SubActionClientItem.Items.Add.Action := Action4;
  SubActionClientItem.Items.Add.Action := Action5;

  ActionPopupMenu := TCustomActionPopupMenu.Create(self);
  ActionPopupMenu.ActionClient := ActionClientItem;
end;

No i teraz możemy gdzieś wywołać ActionPopupMenu.Popup(X, Y);

1 użytkowników online, w tym zalogowanych: 0, gości: 1