Panel을 클릭하면 ShowMessage("하하하")라는 메시지가 뜨도록 하고 싶습니다.

공부하는 중에 만드는 것인데 어찌해야할지 모르겠습니다. 도와주세요

TPanel을 상속받아서 만드려고 상속 받아서 만든 클래스에 다음과 같은 함수를 등록했습니다.

void __fastcall TPanelTest::MouseDown(TObject *Sender,TMouseButton Button, TShiftState Shift, int X, int Y)
{
  ShowMessage("하하하");
}

이렇게 하면 될줄 알았는데 안되더군요 알려주세요