Welcome, Guest
Username: Password: Remember me
Forgot your password? Forgot your username? Create an account
Forum
CodeTyphon Studio
Using CT on MS Windows
Very strange behavior of TForm
CodeTyphon MS Windows (Win7, Win8.x, Win10 and Win11) OS Development, discussions and problems
  • Page:
  • 1

TOPIC:

Very strange behavior of TForm 1 month 1 week ago #18660

  • Roman
  • Roman's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 110
  • Thank you received: 0
I am attaching the project.
On the first form there is a button to open the second form.
Also on the first form there is a checkbox to set/remove the fsSystemStayOnTop style.
If the second form is open, then uncheck the checkbox hides it, and then it is no longer possible to open the second form.
What is the problem?
Attachments:

Please Log in or Create an account to join the conversation.

Last edit: by Roman.

Very strange behavior of TForm 1 month 1 week ago #18661

  • Matis A.
  • Matis A.'s Avatar
  • Away
  • Moderator
  • Moderator
  • Posts: 1129
  • Thank you received: 170 
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  if TCheckBox(Sender).Checked then FormStyle := fsSystemStayOnTop
  else
    FormStyle := fsNormal;

  //...............................
  if Form2.Visible then
  Form2.Show;
  //..............................
end; 
PilotLogic Core Programmer
The following user(s) said Thank You: Roman

Please Log in or Create an account to join the conversation.

Very strange behavior of TForm 1 month 1 week ago #18662

  • Roman
  • Roman's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 110
  • Thank you received: 0

  //...............................
  if Form2.Visible then
  Form2.Show;
  //..............................

It is a norm not bug?!

Please Log in or Create an account to join the conversation.

Very strange behavior of TForm 1 month 1 week ago #18663

  • Matis A.
  • Matis A.'s Avatar
  • Away
  • Moderator
  • Moderator
  • Posts: 1129
  • Thank you received: 170
It's normal Sir
 
PilotLogic Core Programmer

Please Log in or Create an account to join the conversation.
  • Page:
  • 1
Forum
CodeTyphon Studio
Using CT on MS Windows
Very strange behavior of TForm