(Resolvido) Habilitar um submenu do popupMenu

[nilegor]

Olá, preciso habilitar um submenu do popup mas não consigo, só consigo habilitar a primeira opção, a que esta dentro do submenu não da certo, isso por que não estou conseguindo encontrar o caminho do caption do submenu, mas como faço isso ? Estou usando o seguinte código abaixo, mas depois de cadastros exite um submenu ESTOQUE por exemplo, e é esse que quero marcar como Checked:=true;
#Código

1	pop_Configurações.Items.Find('Cadastros').Checked:=true;

[Jhonas]

vou te dar um exemplo onde a criação do Menu e do Submenu do PopUp são dinamicos.

voce deve entender a lógica dos comandos e fazer as alterações necessarias no seu código .. ok ?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure PopupClick(Sender: TObject);
  end;

var
  Form1: TForm1;
  cc : integer = 0;
implementation

{$R *.dfm}

procedure TForm1.PopupClick(Sender: TObject);
var
  SubmenuItem, Item: TMenuItem; i : integer;
begin
  cc := 0;
  SubmenuItem := Sender as TMenuItem;
  while SubmenuItem.Count > 1 do
    SubmenuItem.Items[SubmenuItem.Count - 1].Free;
  while SubmenuItem.Count < 3 do begin
    Item := TMenuItem.Create(SubmenuItem);
    inc(cc);
    Item.Caption := Format('Novo item de submenu criado %d', [cc]);
    SubmenuItem.Add(Item);
  end;

// aqui o item selecionado do menu popup será marcado como Checked

 with (Sender as TMenuItem) do begin
    for i := 0 to (GetParentComponent as TPopupMenu).Items.Count - 1 do begin
      (GetParentComponent as TPopupMenu).Items[ i ].Checked := (i = MenuIndex);
    end;
  end;

// aqui o primeiro subitem do item do menu popup será marcado como Checked

 with (Sender as TMenuItem) do begin
    for i := 0 to (GetParentComponent as TPopupMenu).Items.Count - 1 do begin
      (GetParentComponent as TPopupMenu).Items[ i ].Items[0].Checked := (i = MenuIndex);
    end;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Popup: TPopupMenu;
  Item, SubItem: TMenuItem;
  i : integer;
begin
  Popup := TPopupMenu.Create(Self);
  PopupMenu := Popup;
  for i := 1 to 3 do
     begin
        Item := TMenuItem.Create(Popup);
        Item.Caption := 'Teste PopUp Menu ';
        Item.OnClick := PopupClick;
        Popup.Items.Add(Item);
        SubItem := TMenuItem.Create(Item);
        SubItem.Caption := 'Submenu '+inttostr(i);
        Item.Add(SubItem);

    end;
end;

end.

 

abraço

 

[nilegor]

Jhonas, deu certo. Não quero criar o submenu em rum time, mas consegui ajustar o código, muito obrigado pela sua ajuda.