|
tdbcombobox salir con escape
Hola por hay tengo una duda sobre este objeto
Utilizo delphi 6 y estoy tratando de habilitar el escape como tecla para ir al objeto anterior
estoy haciendo lo siguiente:
procedure TForm1.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
Form1.SelectNext(Form1.ActiveControl,false,false);
end;
y con esto me pasa al control anterior pero el problema que me deja el control DBComboBox1 pintado de azul como si tuviera el foco igual que el control al que se regreso, hago lo mismo con el enter pero con el enter si lo deja sin estar pintado.
tambien intente con
keybd_event( 9, 0, vk_Shift, 0);
Pero con este no funciona.
si le envio la siguiente linea con el enter si funciona
keybd_event( 9, 0, 0, 0);
mi problema es que necesito que se le quite el color azul al objeto para que no se vea como que tiene el foco ese objeto.
Alguin que me pueda decir como le quito el color azul, a un tdbcombobox para que no se ponga como que estoy en ese campo.
|