La StatusBar la tengo de forma que muestra los hint de todos los componentes al ponerse encima así que creo que con cambiar el hint me valdría ¿no? Seria algo asi:
Código PHP:
void __fastcall TForm1::AppIdle(TObject *Sender, bool &done)
{
* TPoint pt;
* HWND HWL;
* GetCursorPos( &pt );
* HWL = WindowFromPoint( pt );
* if ( HWL != 0 )
* {
*** char buff[128];
*** GetClassName( HWL, buff, sizeof( buff ) );
*** if ( StrIComp( buff, "ComboLBox" ) == 0 )
*** {
*******TComboBox* CB = (TComboBox*)FindControl(GetParent(HWL));
********if (CB->Name == "ComboBox1"){
*********** ::ScreenToClient( HWL, &pt );
*********** int inx = LOWORD( SendMessage( HWL, LB_ITEMFROMPOINT, 0, (LPARAM)MAKELONG(pt.x, pt.y)) );
*********** if ( inx >= 0 )
************** CB->Hint=ListaStrings[inx];
***** }
*** }
* }
}