In attach You can found the patch modified. Now is not lost focus on the window. Could you check it?
Index: customform.inc =================================================================== --- customform.inc (revision 13136) +++ customform.inc (working copy) @@ -873,6 +873,34 @@ var FocusHandle : HWND; MenuItem : TMenuItem; + + {----------------------------------------------------------------------- + Return if the control contain a form + -----------------------------------------------------------------------} + function IncludeForm(Control : TWinControl) : Boolean; + var + I : Integer; + Founded : Boolean; + begin + Founded := False; + if Control <> Nil then + begin + I := 1; + while (I <= Control.ControlCount) And (Not Founded) do + begin + if (Control.Controls[I-1] Is TCustomForm) + then + Founded := True + else + If (Control.Controls[I-1] Is TWinControl) + then + Founded := IncludeForm(Control.Controls[I-1] As TWinControl); + Inc(I); + end; + end; + Result := Founded; + end; + begin with TheMessage do case Msg of @@ -917,7 +945,7 @@ DebugLn('[TCustomForm.WndProc] ',Name,':',ClassName); {$ENDIF} LCLIntf.SetFocus(FocusHandle); - exit; + if not IncludeForm(Self) then exit; end; end; end;
begin:vcard fn:David Guadagnini n:Guadagnini;David org:Biotecnica Instruments S.p.A.;R&D adr:;;Via Licenza 18;Roma;RM;00133;Italy email;internet:[EMAIL PROTECTED] title:Software architet tel;work:+39064112616 x-mozilla-html:FALSE version:2.1 end:vcard