La idea es ir moviendo el raton por encima de la lista y como son textos mas grandes pues ir mostrando el Hint. Tengo esto a partir de una funcion que me pasasteis y intento modificarla:
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)
{
int inx;
if ( FInCBoxMaps)
{
::ScreenToClient( HWL, &pt );
inx = LOWORD( SendMessage( HWL, LB_ITEMFROMPOINT, 0,
(LPARAM)MAKELONG(pt.x, pt.y)));
if ( inx >= 0 ){
//Aqui muestro la imagen
MostrarImagenMapa(inx);
}
}
TComboBox *CB = static_cast<TComboBox*>(FindVCLWindow(Mouse->CursorPos));
if(CB)
CB->Hint= CB->Items[inx].Text;
}
}
}
El caso es que creo que lo que hago para mostrar el hint no es correcto porque compila pero me parece que CB nunca obtiene un puntero valido. ¿me podrian ayudar?