De la ayuda de Builder:
Código PHP:
void __fastcall TForm1::DoShowHint(System::AnsiString &HintStr, bool &CanShow, THintInfo &HintInfo)
{
if (HintInfo.HintControl == SpeedButton3)
{
HintInfo.HintColor = clAqua;// Changes only for this hint
HintInfo.HintMaxWidth = 120; // Hint text word wraps if width is greater than 120
HintInfo.HintPos.x += SpeedButton3->Width; // Move hint to right edge
}
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->ShowHint = true;
Application->OnShowHint = DoShowHint;
}
Para obtener la posición del ratón en coordenadas relativas a la pantalla lo haces con la API
GetCursorPos
Para convertir esas coordenadas a relativas de una ventana usa
ScreenToClient
Saludos