Ver Mensaje Individual
  #3  
Antiguo 24-08-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¿Nunca has usado Frames? Un Frame es similar a un Panel en cuanto a que contiene varios controles, pero a diferencia del panel, se puede diseñar independientemente de un formulario y- lo más importante -se puede reusar cuantas veces quieras y en donde sea. Esto es lo que yo utilizaría aquí, un frame que enmarque al botón y al edit.

Para crearlo vas al menú Archivo|New|Frame. Ta aparecerá una ventana muy similar a un formulario. Ahí colocas un Edit y un SpeedButton. En el evento OnKeyDown del botón pones:

Código Delphi [-]
if Key = VK_UP then
  Self.BotonBuscar.Click;

Dale un nombre apropiado al frame, por ejemplo, FrameBusqueda. Ahora FrameBusqueda es muy similar a cualquier otro control y puedes colocar uno o más de ellos seleccionando la componente Frames en la pestaña Standard de la paleta de componentes.

Si tienes más de un frame diseñado, te aparecerá una lista para que escojas cuál deseas.

En el formulario aparecerá entonces una copia del frame que puedes programar como cualquier otro control. Así como actualmente has programado el eventoOnClick de cada SpeedButton, ahora haces lo mismo pero con el SpeedButton de cada FrameBusqueda que coloques. Hasta aquí no hay ganancia, pero todos los frames que pongas ya tendràn programado lo del KeyUp así que ya no hay nada más que hacer.

// Saludos
Responder Con Cita