Associar evento a bjeto criado dinamicamente

Delphi

19/11/2004

Pessoal,

Tô com um probleminha aqui e espero que alguem possa me ajudar:

Estou criando um projeto que instancia dinamicamente várias DLL´s e, para cada uma delas eu crio um ítem de menú dinamicamente.
Agora eu preciso que, ao clicar no menu, o programa chame a dll correspondente.

O problema é o seguinte:
Como eu programo o evento Click de um objeto (TMenuItem) que eu criei dinamicamente?

Espero que possam me ajudar,


Carlosfim

Carlosfim

Curtidas 0

Respostas

Jc_analista

Jc_analista

19/11/2004

bom pode ser feito assim:

qdo vc criar o menu coloque isso:
 MainMenu1.Items[1].OnClick := CapturaClick;

Depois crie a procedure:
procedure CapturaClick(Sender : TObject);
 

procedure Tform1.CapturaClick(Sender: TObject);
begin
// aqui dentro vc faz o tratamento do clik  
 if TMenuItem(Sender).Caption=´teste´ then //vc pode usar tag,name ao inves do caption
   .
   .  
   .
end;

Espero ter ajudado.


GOSTEI 0
POSTAR