Ver Mensaje Individual
  #3  
Antiguo 10-04-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola aguml.

Fijate si te sirve esta propuesta.

.h
Código PHP:
...
class 
TForm1 : public TForm
{
__published:
  
TComboBox *ComboBox1;
  
TStatusBar *StatusBar1;
  
void __fastcall FormCreate(TObject *Sender);
private:
  
void __fastcall AppIdle(TObject *Senderbool &done);
public:
  
__fastcall TForm1(TComponentOwner);
};
... 
.cpp
Código PHP:
...
void __fastcall TForm1::AppIdle(TObject *Senderbool &done)
{
  
TPoint pt;
  
HWND HWL;

  
GetCursorPos( &pt );
  
HWL WindowFromPointpt );

  if ( 
HWL != )
  {
    
StatusBar1->SimpleText "";
    
char buff[128];
    
GetClassNameHWLbuffsizeofbuff ) );
    if ( 
StrICompbuff"ComboLBox" ) == )
    {
      ::
ScreenToClientHWL, &pt );
      
int inx LOWORDSendMessageHWLLB_ITEMFROMPOINT0,
        (
LPARAM)(pt.65535 pt.x)) );

      if ( 
inx >= )
        
StatusBar1->SimpleText IntToStr(inx) + " " +
          
ComboBox1->Items->Strings[inx];
    }
  }
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  
Application->OnIdle AppIdle;
  
ComboBox1->Items->CommaText =
    
"cero,uno,dos,tres,cuatro,cinco,seis,siete,ocho,nueve";
  
ComboBox1->DropDownCount 10;
}
... 
Salida:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita