FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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í:
Espero que te sirva
__________________
Si no tienes algo que decir más importante que el silencio, cállate |
#3
|
||||
|
||||
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":
// Saludos |
#4
|
||||
|
||||
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:
En el método FocusLast setea el foco en el último control segun el TabOrder dentro del Frame. Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|