I have some doubts in Lazarus for Win32 application.inc. Every time creating form with TApplication.CreateForm it is added to FFormList. I can't find any place in code where Free or Delete for single form is done. Also this construction in DoIdleActions is dengerous:

 if FFormList<>nil then begin
   for i:=0 to FFormList.Count-1 do begin
     AForm:=TForm(FFormList[i]);
*      if AForm.FormStyle=fsSplash then*
       AForm.Hide;

I have program error on bold line several times. Has anyone such problems?


_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to