ShowModal is not working anymore?
lazarus / 35-Windows CE

----------------------------------------------------------------------
ertank · 2016-04-12 20:28

Hi,

I am not quite sure, but I cannot display a form as modal in WinCE
platform. For example, attached program becomes unresponsive (picture
2) after clicking "Modal Show Form2" button (picture 1).

Project has 2 forms total. Only Form1 is auto created. When button
clicks, Form2 created and displayed with ShowModal. Unfortunately,
code executes it, directly goes to Free section and application become
unresponsive.

If I change code to Form2.Show; everything is just fine.

My device is from http://www.dsic.co.kr/ model is DS5 under mobile
solutions.

Thanks & regards,
-Ertan

----------------------------------------------------------------------
balazsszekely · 2016-04-13 03:41

QuoteProject has 2 forms total. Only Form1 is auto created. When
button clicks, Form2 created and displayed with ShowModal.
Unfortunately, code executes it, directly goes to Free section and
application become unresponsiveProbably it's a bug! Unfortunately I
don't have WinCE to test it.

QuoteIf I change code to Form2.Show; everything is just fine.As a 
quick workaround(asically you achieve the same thing):
1. Unit1
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
unit2; procedure TForm1.Button1Click(Sender: TObject);begin 
Form1.Enabled := False;  Form2 := TForm2.Create(Self); 
Form2.Show;end;
2. Unit2
Set Form2 FormStyle to fsStayOnTop/fsSystemStayOnTop
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
unit1; procedure TForm2.FormClose(Sender: TObject; var CloseAction:
TCloseAction);begin  CloseAction := caFree;  Form1.Enabled :=
True;end;

----------------------------------------------------------------------
ertank · 2016-04-13 07:03

Hi,

Yes, similar thing can be achieved with your sample code. I used to
use Modal windows myself. Show one get information from it. Continue
with received information kind of coding what I generally do.

This will somehow change my habits, leading me to a bug full of coding

----------------------------------------------------------------------
balazsszekely · 2016-04-13 07:25

Quote@ertank
es, similar thing can be achieved with your sample code. I used to use
Modal windows myself. Show one get information from it. Continue with
received information kind of coding what I generally do.
This will somehow change my habits, leading me to a bug full of
coding 
You can always fill a bug report:
http://bugs.freepascal.org/view_all_bug_page.php?project_id=1 .
Hopefully somebody will fix the issue.

----------------------------------------------------------------------
ertank · 2016-04-13 09:24

Quote from: GetMem on April 13, 2016, 09:25:31 amYou can always fill a
bug report:
http://bugs.freepascal.org/view_all_bug_page.php?project_id=1 .
Hopefully somebody will fix the issue.

Thanks. I already did. Waiting with patience.

----------------------------------------------------------------------
ertank · 2016-05-10 14:11

My test with Lazarus 1.7, fpc 3.0.0, SVN revision 52294 is a success.
ShowModal is working as it should be with above version.

Just wanted to follow up.