I don't have any splash forms but debugger stops here. Probably because of nil AForm.

Mattias Gärtner pisze:
Zitat von Piotr Wróblewski <[email protected]>:

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.

CreateForm creates forms with Application as Owner. So the forms are freed, when Application is freed, which is done in finalization of unit forms.


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?

No problems here. What are you doing with your splash forms?


Mattias

--
Powered by NetMail

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


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

Reply via email to