Developing.ru

На форме есть компонент (TLabel)
Надо чтобы при ведении мыши над ним под ним появлялось всплывающее меню,
А при его проходе убиралось. Код на обработчики событий LabelMouseMove
Даёт всплывание меню, но убрать его командой
PostMessage(Handle,WM_NULL,0,0); не получается
void __fastcall TForm1::Label1MouseMove(TObject *Sender,TShiftState Shift,int X,int Y)
{
pm1->Popup(Form1->Left+16,Form1->Top+90);
}
void __fastcall TForm1::FormMouseMove(TObject *Sender,TShiftState Shift,int X, int Y)
{
sb->SimpleText="X="+IntToStr(X)+" Y="+IntToStr(Y);
}
В то же время выполнение PostMessage(Handle,WM_NULL,0,0); по нажатию кнопки
Скрывает всплывающее меню.
Как скрыть всплывающее меню не кликая мышью, а только её ведя?