Fórum Saber se dois Objetos compartilham o mesmo evento Click #370957
03/06/2009
0
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.Em uma determinada altura eu preciso fazer um laço verificando acessos dinamicamente então preciso saber se tem como fazer algo do tipo:A IDE diz que faltam parâmetros.
Desligar1.OnClick := Desligar1Click; ToolButton1.OnClick := Desligar1Click;
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;
Marcosrocha
Curtir tópico
+ 0
Responder
Posts
03/06/2009
Marcosrocha
Obrigado pela atenção, ja descobri
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)