Listar ActionList / ActionManager em TreeView

Question

Boa tarde...Estou montando uma treeview pra controlar as acoes...Ja queimei os miolos pra jogar as acoes e categorias de um actionmanager ou action list numa treeview...Ocorre que estou percorrendo as...

Afarias · Answer

Seu problema acredito � q as a��es n�o est�o �ordenadas� pela categoria -- normal! Bom, tem algumas formas de resolver isso, segue uma delas onde vc pode criar uma fun��o que retorne o n� de uma categoria pelo seu nome (caso j� exista):

function TForm1.EncontrarNo(const aNome: string): TTreeNode;
var
  i: Integer;
begin
  Result := nil;
  with TreeView1.Items do
  begin
    for i := 0 to Pred(Count) do
      if Item[i].Text=aName then
      begin
        Result := Item[i];
        Break;
      end;
  end;
end;


procedure TForm1.ConstruirArvore;
var
  i: Integer;
  no: TTreeNode;
  ac: TAction;
begin
  for i := 0 to Pred(ActionList1.ActionCount) do
  begin
    ac := TAction(ActionList1.Actions[i]);
    with TreeView1.Items do
    begin
      no := EncontrarNo(ac.Category);
      if no=nil then
        no := Add(GetFirstNode, ac.Category);
      AddChild(no, ac.Caption);
    end;
  end;
end;

T+

Flast2008 · Answer

afarias....vc destruiu...� isso mesmo que eu precisava...valew dmais pela ajuda!!!...

F�rum Listar ActionList / ActionManager em TreeView #374768