어플리케이션 우측 상단에 x를 누르면 트레이로 빠지게 만들었습니다.

자료실에 올라온자료를 참고 했구요.

근데 문제가.. 

pTray->PopupMenu = popTray;
pTray->OnMouseUp = TrayOnMouseUp;
이렇게 지정하고...

void __fastcall TMainDlg::TrayOnMouseUp(TObject *Sender,  TMouseButton Button, TShiftState Shift, int X, int Y)
{
     if( Button == mbRight )     pTray->ShowMenu();
}

이렇게 구현을 했는데.. 반응이 없네요 ;;
(함수 자체에 들어오질 않습니다.;)

다른 설정이 더 필요한지 궁금합니다.

아시는분들계시면 부탁좀 드릴께요.