Pegar Nome do Componente

Delphi

03/01/2008

-> Tenho um TPopupMenu no form principal da minha aplicação. Nos demais forms utilizo um SpeedButton ligado com esse TPopupMenu.
É possível saber qual o nome do SpeedButton, no momento em que clico em alguma opção do TPopupMenu?
No OnClick de uma das opções do TPopupMenu coloquei o seguinte código:

ShowMessage(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent.Name);

Mas quando clico aparece a seguinte mensagem:

ACCESS VIOLATION AT ADDRESS 006193D5 IN MODULE ´SISTEMA.EXE´. READ OF ADDRESS 00000008.


Adminfo

Adminfo

Curtidas 0
POSTAR