Criar um evento onclick para um menu em tempo de execu��o

Question

Srs(as).Estava precisando saber como criar um evento onclick para um menu cujo os itens ser�o montados a partir de um banco de dados em tempo de execu��o.Agradecido...

Xanatos · Answer

Bom essa tua questao me deixou muito curioso e em funcao disso tambem quero fazer esse negocio funcionar!

A Cada MenuItem que voce criar tente fazer isso:

Item:= TMenuItem.Create(Self);
Item.Name:= �Teste�;
Item.Caption:= �Teste�;
Item.OnClick:= Padrao1.OnClick;
MainMenu1.Items.Add(Item);

Voce cria uma opcao padrao e deixa ela invisivel! ela s� vai servir pra voce ter em cada opcao de menu um evento onclick!!!

Depois voce implementa dentro desse Padrao1.OnClick a chamada ao formulario desejado!!!

Tenta ai e vamos ver o que d�!!! :idea:

Paulo_amorim · Answer

Ol�Crie um procedimento com parametro (Sender: TObject)...P. Ex.:[code:1:3e73529d23]procedure MinhaFuncao(Sender: TObject);[/code:1:3e73529d23]Depois � soh atribuir...[code:1:3e73529d23]Menu.OnClick := MinhaFuncao:[/code:1:3e73529d23]Espero que ajudeAt�+...

Motta · Answer

Outra solu��oCrie TActions e quando criar o MenuItem a vincule ao menu....

Xanatos · Answer

Paulo Amorim eu tinha tentado fazer isso mas da erro! pois onclick � um TNotifyEvent e nao uma procedura e por isso nao podemos fazer essa atribucao!!!...

Xanatos · Answer

Motta voce pode passar um exemplo da criacao dos TActions?Obrigado....

R�mulo Barros · Answer

tb Aguardo.Sobe ^...

Paulo_amorim · Answer

[quote:c38553de76=�xanatos�]Paulo Amorim eu tinha tentado fazer isso mas da erro! pois onclick � um TNotifyEvent e nao uma procedura e por isso nao podemos fazer essa atribucao!!![/quote:c38553de76]Ol�TNotify event �, na realidade, uma procedure...[quote:c38553de76=�Borland�]type TNotifyEvent = procedure (Sender: TObject) of object[/quote:c38553de76]Quando vc cria uma procedure com os mesmos par�metros que um TNotifyEvent ele deveria aceitar...Garanta que criou a procedure com os mesmos parametros...Se n�o funciona, que erro d�?Espero que ajudeAt�+...

Xanatos · Answer

Deu certo! � que eu estava tentando atribuir outro evento onclick de outra opcao !!! e deu erro mas criei uma funcao simples e funcionou!!Valeu!!!...

Info.wtomfs · Answer

Galera tbm fiz isso em meu sistema,S� que meu menu chama um form que est� no banco de dados como string

Form := �Frm_Clientes�; // Essa Vari�vel cont�m o form que est�
gravado no banco

Formulario := TForm(FindClass(�t�+Form));
Nome.ClassName := Formulario;
Application.CreateForm(TComponentClass(Nome),Form);
Formulario.Name := Form;
Formulario.Show;

Isso Cria o Form Normalmente, s� que se eu tentar acessar qualquer componente deste form atrav�s de outro da erro de mem�ria.

Ex:

do Bot�o qualquer de um form qualquer,

Label1.Caption := Frm_Usuarios.Edit1.text;

Isso d� erro

Quem puder ajudar eu agrade�o...

Paulo_amorim · Answer

[quote:438a5ba2fd=�info.wtomfs�]Ex:  do Bot�o qualquer de um form qualquer,  Label1.Caption := Frm_Usuarios.Edit1.text;  Isso d� erro [/quote:438a5ba2fd]Ol�Perae, at� onde eu vi, esse Frm_Usuarios n�o est� sendo declarado...O problema ocorre porcausa do Edit1 ou do Label1Se eh por causa do Label, tente especificar o formFrm_Clientes.Label1.Caption...Espero que ajudeAt�+...

Xanatos · Answer

Bom Paulo!

Ele ta querendo dizer que quando for feita uma chamada dinamica ao Frm_Usuarios que vai ser atrav�s do menu dinamico...e atrav�s de uma string �Frm_Usuarios�. e depois tentar acessar este form atraves da

Label1.Caption := Frm_Usuarios.Edit1.text;

o Programa gera um erro de access violation por que o sistema nao acha o Frm_Usuarios ! pois ele vai criado nao atrav�z do Frm_Usuarios : TFrm_Usuarios e sim de uma variavel Form: TForm.

F�rum Criar um evento onclick para um menu em tempo de execu��o #236791