FindNextComponent desde un Frame
 

Hola:

Mi problema es el siguiente: tengo un frame que necesita, al pulsar un botón, que el focus de un control se mueva al siguiente. Esto lo lograría normalmente con la instrucción FindNextComponent. El problema es que los controles no están dentro del frame, sino en el Formulario que lo contiene.

El código que tengo es:

procedure TFrameBoton.Button2Click(Sender: TObject);
var C: TWinControl;
F: TForm;
begin
F := TForm((Sender as TFrame).Owner);
C := F.ActiveControl;
FindNextControl(C, true, false, true).SetFocus;
end;


Por lo que he comprobado el código reconce correctamente al formulario padre y al componente que tiene el focus en el mismo, pero cuando le doy la orden del FindNextControl este toma como referencia el botón del frame, ignorando el componente C.

¿Alguien puede echarme un cabo y decirme que hago mal?

Gracias por adelantado y un saludo a todos,

Chemo.

FindNexControl pertenece a la clase TWinControl, por lo que has de hacer un FinNexControl pero del Parent del Frame (si este es el form, claro). Algo así:

Código Delphi [-]
TWinColtrol(Self.Parent).FindNextControl(....);

Espero que te sirva

El único problema aquí será que FindNextControl es un método protegido por lo que no podrá acceder directamente a dicho método del formulario padre y tendrá que "desprotegerlo":

Código Delphi [-]
type
  THackControl = class(TWinControl);

...

THackControl(Self.Parent).FindNextControl(....);

// Saludos

Te comento que la mayoría de mis Frames de búsqueda, tienen un comportamiento muy similar, y en la clase madre de estos frames, tengo definido un método, DoLostFocus que tiene el siguiente código:

Código Delphi [-]
procedure TArtFrame.DoLostFocus;
Var bBool : Boolean;
begin
  ...
  FocusLast;
  SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 0, 0);
  ...
end;

En el método FocusLast setea el foco en el último control segun el TabOrder dentro del Frame.

Saludos!