Ver Mensaje Individual
  #4  
Antiguo 16-04-2012
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 jhonalone.

Ahora creo haber entendido.

En el evento OnClick podrías interceptar la tecla que se presionó y por ejemplo si es VK_UP o VK_DOWN salir:
Código Delphi [-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0) then Exit;
  (* aquí el codigo del evento OnClick *)
  //...
  ShowMessage('OnClick')
end;

Del mismo modo en el evento OnChange:
Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0) then Exit;
  (* aquí el codigo del evento OnChange *)
  //...
  ShowMessage('OnChange')
end;
Seguramente quieras controlar otras teclas, revisá Virtual key codes en la ayuda de Delphi.

Saludos.
__________________
Daniel Didriksen

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