Cita:
Esto es lo que pretendo:
Poder desplazarme con las flechas arriba/abajo sin que salte el OnChange ni el OnClck hasta que pulse Enter o haga Click en un item concreto.
|
Hola jhonalone.
Creo que no entiendo la lógica de lo que buscas, pero voy a responder estríctamente a tu consulta:
En realidad sería sólo hasta que se pulse Enter, ya que en teoría
OnClick estaría desactivado y por lo tanto no debería ser capturado:
Código Delphi
[-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.OnClick:= nil;
ComboBox1.OnChange:= nil;
end;
...
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key =#13)and(ComboBox1.ItemIndex = 2) then
begin
ComboBox1.OnClick:= ComboBox1Click;
ComboBox1.OnChange:= ComboBox1Change
end
else begin
ComboBox1.OnClick:= nil;
ComboBox1.OnChange:= nil
end;
end;
Pero no visualizo la aplicabilidad de ese código... Concretamente, ¿ Que es lo que tratas de hacer ?
Saludos.