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);