Saber se dois Objetos compartilham o mesmo evento Click

Delphi

03/06/2009

Estou fazendo uma rotina de verificação para controle de acessos em um determinado módulo do meu sistema onde um ToolBar possui alguns ToolButtons que estão ligados ao mesmo clique de alguns MenuItens do MainMenu.
Desligar1.OnClick   := Desligar1Click;
ToolButton1.OnClick := Desligar1Click;
Em uma determinada altura eu preciso fazer um laço verificando acessos dinamicamente então preciso saber se tem como fazer algo do tipo:
for I := 0 to MainMenu1.Items.Count-1 do
  for J := 0 to ToolBar1.ButtonCount-1 do
    if MainMenu1.Items[I].OnClick = ToolBar1.Buttons[J].OnClick then // Isso AQUI...
    begin
      // Ações do Botão Desligar
      ToolBar1.Buttons[J].Enabled := MainMenu1.Items[I].Enabled;
      Break;
    end;
A IDE diz que faltam parâmetros.


Marcosrocha

Marcosrocha

Curtidas 0

Respostas

Marcosrocha

Marcosrocha

03/06/2009

Obrigado pela atenção, ja descobri


GOSTEI 0
POSTAR