LAMW : second window makes app crash

[SuperCyprien]

Hello,

I've just discovered LAMW and I try to code my first app. I ever know (a little bit) Lazarus and freepascal , even if I have not really used them for 5 ou 6 years.
I would like to make an app with two windows, not opened at the same time.
On the first "screen", I have a "button" (an Image) to launch the second screen.

The code I wrote is :

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

1. procedure TAndroidModule1.ImageView1Click(Sender: TObject);
2.    var mod2 : TAndroidModule2;
3. begin
4.   mod2.Create(Self);
5.   mod2.Show;
6.   mod2.Free;
7. end;

When I click on the Image, the app crashes. Sure I do something wrong, but what ?
I didn't find so much doc on these components, so help would be very appreciated.
Sorry for my poor english, I'm french

Thank you for advance,
Cyprien

[marcos-ebm]

try this

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

1. uses
2.     unit2;
3. procedure TAndroidModule1.ImageView1Click(Sender: TObject);
4. begin
5.   if AndroidModule 2 = nill then
6.   begin
7.     gApp.CreatForm(TAndroidModule2, AndroidModule2);
8.     AndroidModule2.init;
9.   end;
10.   AndroidModule2.Show;
11. end;
12.  
13.  
14.  
15.  

[SuperCyprien]

Thank you. It is better and the app do not crash now.

Just some corrections in case of someone else had the same problem :

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

1. procedure TAndroidModule1.ImageView1Click(Sender: TObject);
2. begin
3.   if AndroidModule2 = nil then
4.   begin
5.     gApp.CreateForm(TAndroidModule2, AndroidModule2);
6.     AndroidModule2.init;
7.   end;
8.   AndroidModule2.Show;
9. end;
10.  

I can't open the second screen more than one time, but I will work at this now

[c4p]

Try putting the second window creation code in the OnJNIPrompt event and call it with AndroidModule2.Show when required and close with AndroidModule2.close to see if that helps, that way it creates the window on startup and lets you open/close the form/window when you need it.

Thank you. It is better and the app do not crash now.

Just some corrections in case of someone else had the same problem :

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

1. procedure TAndroidModule1.ImageView1Click(Sender: TObject);
2. begin
3.   if AndroidModule2 = nil then
4.   begin
5.     gApp.CreateForm(TAndroidModule2, AndroidModule2);
6.     AndroidModule2.init;
7.   end;
8.   AndroidModule2.Show;
9. end;
10.  

I can't open the second screen more than one time, but I will work at this now

[SuperCyprien]

I did that and it works !
Thank you !!

[c4p]

Cool, great! 

For clarity if anyone else needs it, something like this:

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

1. procedure TAndroidModule1.TAndroidModule1JNIPrompt(Sender: TObject);
2.  begin
3.   if AndroidModule2 = nil then
4.   begin
5.     gApp.CreateForm(TAndroidModule2, AndroidModule2);
6.     AndroidModule2.init;
7.   end;
8.  End;

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

1. procedure TAndroidModule1.ImageView1Click(Sender: TObject);
2.  begin
3.   AndroidModule2.Show;
4.  End;

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

1. procedure TAndroidModule2.Button1Click(Sender: TObject);
2.  begin
3.   AndroidModule2.close;
4.  End;

Thank you. It is better and the app do not crash now.

Just some corrections in case of someone else had the same problem :

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

1. procedure TAndroidModule1.ImageView1Click(Sender: TObject);
2. begin
3.   if AndroidModule2 = nil then
4.   begin
5.     gApp.CreateForm(TAndroidModule2, AndroidModule2);
6.     AndroidModule2.init;
7.   end;
8.   AndroidModule2.Show;
9. end;
10.  

I can't open the second screen more than one time, but I will work at this now

[rafman]

Try This directly from your Image onclick() event, works for me  (LAMW 0.8.6.3)

Add the second unit declaration after the implementation section of unit1  as :

implementation
uses
  unit2, unit_3, ...;  // you can add more than one units in order to open several forms

and finally add this code your Image onclick() event on first unit.

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

1.  
2. if AndroidModule2 = nil then
3. begin
4.   gApp.CreateForm(TAndroidModule2, AndroidModule2);
5.   AndroidModule2.InitShowing();
6. end
7. else
8.   AndroidModule2.Show();
9.