KeyDown y DBGrid

[javiermorales]

Buenos Días, alguien puede indicarme como solucionar el siguiente problema:

Tengo en una Form 2 DataSource, una serie de campos asociados al primer DataSource y un DBGrid asociado al segundo DataSource.

Tengo programado el evento OnKeyDown del Formulario y del DBGrid (con teclas que simulan el funcionamiento de las DBNavigator correspondiente). El formulario lo tengo con la propiedad KeyPreview a true, para que capture las pulsaciones.

El problema viene cuando dentro del DBGrid se presiona una tecla que está programada en el formulario y en el DBGrid, ya que entonces las ejecuta ambas. He probado a decirle en el Formulario que si DBGrid.Focused, no haga nada, pero cuando el foco está en una columna del DBGrid, no se cumple que DBGrid.Focused sea true.

¿Me podéis indicar una manera de delimitar cuando el foco se encuentra en cualquier parte del DBGrid, o cualquier otra manera de deteminar que solo debe ejecutarse el evento OnKeyDown del Formulario, cuando el foco no esté en el DBGrid?.

Gracias. Un saludo.

[delphi.com.ar]

Puedes preguntar:

if ActiveControl is TCustomDBGrid then

o

if ActiveControl = DBGrid then

Saludos!

[javiermorales]

Gracias Delphi.com.ar, ha funcionado perfectamente