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.
|