Primeiramente as informações dos menus que serão criados são gravados em BD.
No evento OnCreate do form principal faço a criação dos itens de menu.
procedure TfrmPrincipal.FormCreate(Sender: TObject);
var ItemMenu : TMenuItem;
iPos : Integer;
begin
//Aqui faço a consulta dos dados dos
Primeiramente as informações dos menus que serão criados são gravados em BD.
No evento OnCreate do form principal faço a criação dos itens de menu.
procedure TfrmPrincipal.FormCreate(Sender: TObject);
var ItemMenu : TMenuItem;
iPos : Integer;
begin
//Aqui faço a consulta dos dados dos
Já consegui resolver pessoal. Depois de criar os itens de menu, dei um Refresh
no form e usei Application.ProcessMessages.
[As partes desta mensagem que não continham texto foram removidas]
Tenho uma rotina que verifica todos os itens de menu existentes, mas os que
são criados em tempo de execução não são detectados. Se eu rodar o código
abaixo só os que são criados em tempo de desenvolvimento são mostrados.
Alguém sabe por que?
for i := 0 to ComponentCount-1 do
if Components[i
4 matches
Mail list logo