Cita:
Empezado por wonder boy
Como hago para que en el formulario hijo (que esta insertado en un formulario padre que NO es un MDI) me tome un onkeydown y no lo haga el padre, que tambien tiene un evento onkeydown, que debo hacer en este casos
|
El problema es que el formulario "hijo" jamás va a recibir el evento del teclado por la manera en que está diseñada la VCL. Cuando se oprime una tecla es el control activo quien primero recibe el evento (aun estando el KeyPreview del formulario en true) en el método manejador WMKeyDown:
Código Delphi
[-]
procedure TWinControl.WMKeyDown(var Message: TWMKeyDown);
begin
if not DoKeyDown(Message) then
inherited;
...
end;
DoKeyDown es un método estático (es decir, no podrás redefinirlo) que a grandes rasgos hace lo siguiente:
Busca el formulario padre (el que contiene al control)
Si este formulario tiene KeyPreview = true le manda el evento
En caso contrario llama al método protegido KeyDown del control.
El problema está en cómo se obtiene el formulario padre del control:
Código Delphi
[-]
function GetParentForm(Control: TControl): TCustomForm;
begin
while Control.Parent <> nil do Control := Control.Parent;
if Control is TCustomForm then
Result := TCustomForm(Control) else
Result := nil;
end;
esto es, asciende por la cadena de padres hasta encontrar un control cuyo padre sea nil. Si el último distinto de nil es un formulario regresa éste como valor, en caso contrario regresa nil.
En tu caso, cuando el método DoKeyDown del control activo en el formulario "hijo" llama a GetParentForm, la búsqueda ascendente pasa por el formulario pero se lo salta ya que su padre (el formulario principal) no es nil. En resumen, GetParentForm regresará el formulario principal y no el formulario que contiene diectamente al control.
Y lo grave aquí es que GetParentForm no es más que una función (ni a método llega) por lo que no puedes cambiar su comportamiento.
// Saludos