Вопрос : Всплывающее onclick меню не горит случай

Я имею всплывающий меню динамический, создает титры основанные на значении в решетке (asg2), и он работает как я хочу его… за исключением…. случай OnClick не делает class= " lineNumbers " >

1 >

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


Neither Ping2Click ни Check1Click 

Any? 


class= 

Ответ : Всплывающее onclick меню не горит случай

Как раз быстрый взгляд через ваше Кодего, почему вы создаете эти meniutems и после этого разрушаете их в такой же процедуре?
Кажется, что будет дорога, котор вы делали ее в противном случае правильно -- вы задаете имя eventhandler к случаю, как внутри
  mi2.OnClick: = Check1Click;  
После этого когда потребитель щелкает дальше mi2, Check1Click получает вызванным
Вы можете после этого использовать параметр прислужника для того чтобы увидеть которая кнопка вызвала его.

Однако, после вас сказал mi2.OnClick: = Check1Click; в вашем источник-Кодем, вы немедленно разрушаете его, т.е. mi2.destroy;