[solved] can't close app with 2 forms

[speter]

G'Day Folks,

I have a project with 2 forms, I am using form2.show to display the second form, calling it in form1's formactivate method.

Form2.visible = false in the object inspector.

I have created a minimal project and attached it.

When the application runs (Windows 11; Lazarus 4.0), the second form gets focus and clicking on form1 seems to be ignored. Hitting the close window "X" in either form is also ignored. I am not sure what the issue is!?

Thanks in advance.
S.

[Thaddy]

Of course that does not work:
Form2 show
Form1 Activates ,Form2 Show
Form1 Activates, etc.

OnActivate occurs multiple times, so form2.show also executes multiple times. OnCreate executes only once.

[speter]

OnActivate occurs multiple times, so form2.show also executes multiple times. OnCreate executes only once.

Thanks for the quick reply.

I wasn't using OnCreate because I wasn't sure the second form would have been created.

cheers
S.

[speter]

I found that if I had form2.show in form1's OnCreate, there was an error (because form2=nil).

The solution was to add a boolean to make sure form2.show only fires once:

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   done := false;
4. end;
5.  
6. procedure TForm1.FormActivate(Sender: TObject);
7. begin
8.   if done then exit;
9.   form2.show;
10.   done := true;
11. end;

This works as expected; either window's close "X" will work, closing the form or the application.

cheers
S.

[Thaddy]

Better connect the event to Application.OnActivate and disconnect it from the form.
Then you don't need the boolean.

[CharlyTango]

What i don't understand is that several programmers let lazarus create all the forms of a project. Thus all Forms are created at startup.

This strategy is quite alien to me, because I want to determine the time of creation and destruction of objects myself.
I try to avoid such situations in which a form is called without user action.
The only form that is created and displayed by Lazarus in my programmes is the main form -- all other forms are created at runtime

[Thaddy]

What i don't understand is that several programmers let lazarus create all the forms of a project. Thus all Forms are created at startup.

That's the curse of Delphi and the ease of which VB programmers got access to a real language and subsequently started to abuse the possibilities.
Now it is deeply corroded into the system and users can no longer unbolt it....Because they do not know better.
You are absolutely right of course. Then again, I know commercial software with Button1 and Form1....Discovered by binary grep.
IMO that is even worse...