[b]void __fastcall[/b] TForm1::NoRightClick(TMsg &Msg, [b]bool[/b] &Handled)
{
[b]if[/b]((Msg.message == WM_RBUTTONDOWN) && (Msg.wParam == MK_RBUTTON)){
Handled = [b]true[/b];
[color green]POINT cursorPos;
GetCursorPos(&cursorPos);
PopupMenu1->Popup(cursorPos.x, cursorPos.y);[/color]
}[b]else[/b]{
Handled = [b]false[/b];
}
}