Ver Mensaje Individual
  #1  
Antiguo 21-06-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 21
gluglu Va por buen camino
Devolver foco desde Form No Modal al control llamante

Hola Amigos !

Intento devolver el foco desde un Form No Modal en el momento de cerrarlo al control y form que lo llamaron, y a la vez liberarlo y cerrarlo correctamente.

Pero mi problema aparece que cuando intento hacer esto en el form no modal :
Código Delphi [-]
procedure TF_ClientSearch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Focus_Form    <> nil then Focus_Form.SetFocus;
  if Focus_Control <> nil then Focus_Form.SetFocusedControl(Focus_Control);
end;
antes de la terminación del evento FormClose me devuelve de hecho el foco al control que lo llamó (utilizo dos variables auxiliares, Focus_Form y Focus_Control), pero prosigue la ejecución en el otro form y no puedo cerrar y liberar F_ClientSearch.

Gracias por vuestra ayuda.
__________________
Piensa siempre en positivo !
Responder Con Cita