MainMenu

Question

Alguem sabe como colocar uma string no evento onclickde um objeto TMenuItem? ou como converter a string para o tipoTNotifyEvent?...

Rafael Heise · Answer

Por falor, seja mais clara...n�o entendi sua pergunta......

Elenice · Answer

No menu principal existem os items do menu,
quando clico sobre um desses itens estou ativando
o evento �onclick� do componente. Mas estou criando
o menu dinamicamente, na inicializa�ao do programa, e para
isso preciso definir tambem o que acontecera qdo alguem
clicar sobre esse menu (onclick). Soh que o evento onclick
eh do tipo TNotifyEvent, e o que eu gostaria de colocar
no onclick eh do tipo string. Existe um modo de converter
string para o TNotifyEvent???

Rafael Heise · Answer

Mas porque string?Voc� n�o vai conseguir fazer isso do jeito que voc� est� pensando.. Como � do tipo TNotifyEvent, voc� precisa assimilar com TNotifyEvent.Para isso, crie as procedures da maneira que voc� quer, e depois associe elas via c�digoMenuItem.OnClick := MeuClick;beleza?!Talvez isso te ajude a resolver seu problema. Agora se voc� tem as suas procedures, e quer a partir do nome texto associar o evento, dai voc� tem que usar uma programa��o mais pesada que nem tenho certeza se vai mesmo funcionar ou n�o... ent�o, teria que ver... Mas talvez uma outra saida seria voc� usar ActionList. Talvez seja melhor... de uma olhada nisso... talvez ache o que voc� quer......

Elenice · Answer

o problema eh qtodas as propriedades de construcao do menu vao vir de uma tabela,inclusive a procedure a ser executada, ou seja, o nome dela,que eu estava retirando da tabela como string.......

Beppe · Answer

Em vez de string, use um n�mero de a��o(1 - abrir, 2 - fechar, 3 - salvar, 4 - etc). Quando criar o item, configure a propriedade Tag dele como este n�mero. Ent�o voc� cria um m�todo TNotifyEvent no seu form. O corpo dele deve ser algo assim:

case TMenuItem(Sender).Tag of
  0: Abre;  
  1: Fecha;  
  2: Salva;  
  3: Etc;  
end;

Rafael Heise · Answer

Voc� pode tentar fazer o seguinte...J� que voc� tem tudo do banco de dados, e traz as fun��es como string, voc� j� deve ter as fun��es prontas na sua form certo?Ent�o voc� pode criar um record que cont�m os campos nome e endereco, como sendo string e TNotifyEvent respectivamente.Dai quando voc� criar a sua form, voc� chama uma procedure sua, que aloca todas as procedures suas que voc� pretende usar para colcoar nos click. e para isso, voc� tem que ter uma vari�vel na form que � um array da quantidade de procedure do tipo que voc� criou.Ent�o, nessa procedure, voc� seta para cada posi��o do array, o nome e a procedure que voc� vai usar. Depois voc� faz um for em cima desse array, e testa, se for do nome passado, voc� retorna o valor do endereco.dai no caso � uma fun��o que passa uma string e devolve um tnotifyevent.n�o sei se da pra fazer diferente. fiquei tentando usar propinfo e talz, mas n�o deu certo... ent�o... acho que essa � a sa�da mais f�cil atualmente!valeu...

Beppe · Answer

PropInfo � para propriedades e eventos, pra m�todos comuns(Button1Click, Form1Create), isto n�o serve......

Elenice · Answer

e como fa�o para popular o array com os TNofyEvents??...

Rafael Heise · Answer

Infelizmente tem que ser na m�o.. para cada posi��o do array voc� precisa setar manualmente qual a procedure � equivalente!lamento......

Elenice · Answer

aih fica complicado pq sao muitas...umas 500 pelo menos...Mas muito obrigada assim mesmo......

F�rum MainMenu #197066