Pergunta : O onclick emergente do menu não ateia fogo ao evento

Eu tenho um menu emergente que crie dinâmicamente os subtítulos baseados no valor em uma grade (asg2), e trabalha como eu o quero… exceto…. o evento de OnClick não faz class= " lineNumbers " >

1 do >

procedure codeBody TForm1.asg2MouseDown do " prettyprint " " do class= do id= " codeSnippet861505 do >


Neither Ping2Click nem Check1Click de 

Any? 


class= do 

Resposta : O onclick emergente do menu não ateia fogo ao evento

Apenas um olhar rápido com seu código, por que você está criando estes meniutems e está destruindo-os então no mesmo procedimento?
A maneira que você a fêz parece de outra maneira estar correta -- você atribui o nome do eventhandler ao evento, como dentro
  mi2.OnClick: = Check1Click;  
Então quando o usuário estala sobre mi2, Check1Click começ chamado
Você pode então usar o parâmetro do remetente para ver que tecla o chamou.

Entretanto, após você disse mi2.OnClick: = Check1Click; em seu fonte-código, você destrói-o imediatamente, isto é mi2.destroy;