Olá pessoal,
Estou tentando criar um menu dinamicamente, puxando suas informações de um
banco de dados.
Toda a estrutura está montada e funciona legal, dentro do que eu preciso.
Apenas os eventos OnClick e Action não consigo fazer funcionar.
Quando eu coloco as opcoes diretamente, funciona beleza.
mnuItem := TMenuItem.Create(Self);
mnuItem.Action := actUsuarioSair;
mnuItem.Caption := 'Sair';
mnuPrincipal.Items[mnuPrincipal.Items.Count-1].Add(mnuItem);
Mas quando puxo do BD não dá.
mnuItem := TMenuItem.Create(Self);
mnuItem.Caption := FieldByName('CAPTION_MENU').AsString;
mnuItem.OnClick := FieldByName('CLICK_MENU').AsString;
mnuPrincipal.Items[mnuPrincipal.Items.Count-1].Add(mnuItem);
Dá o erro: Incompatible types: 'TNotifyEvent' and 'String'
Como fazer para resolver esse problema ?
Obrigado
Dener
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
