This patch fixes the problem that if I put a form in another it is locked.

If You remember if I have two forms and write:

Form2.Parent := Panel1;
Form2.Align := alClient;

I have form2 into the Panel1 (in Form1) but the form1 it's locked


Index: customform.inc
===================================================================
--- customform.inc      (revision 13125)
+++ customform.inc      (working copy)
@@ -907,7 +907,7 @@
             DebugLn('[TCustomForm.WndProc] ',Name,':',ClassName);
             {$ENDIF}
             LCLIntf.SetFocus(FocusHandle);
-            Exit;
+            //Exit;   //if I put exit do not work forms in forms
           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

Reply via email to