[SOLVED] minimize one form, and other form disapper

[mercury]

I have 2 forms in project. Form1 and Form2.
Both show when program start. (Visible = True)
When I minimize Form1. Form2 will disappear. And can't find it back anywhere.

Then I set Form2.ShowInTaskBar to stAlways.
When I minimize Form1. Form2 will disappear from TaskBar until open Form1 again.

So, I want Form2 shows like Form1, and never effected by Form1.
How can I do this?
Thank you.

[Handoko]

Can you please share the code?

[balazsszekely]

1. Remove form2 from auto-create forms(project options)
2. Create form2 dynamically
3. Override the CreateParams procedure

Code: [Select]

//...
 TForm2 = class(TForm)
  protected
    procedure CreateParams(var params: TCreateParams);override;
    //...
  end;

//...

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDesktopWindow;
end;                         


[mercury]

Can you please share the code?

Sure.

[mercury]

1. Remove form2 from auto-create forms(project options)
2. Create form2 dynamically
3. Override the CreateParams procedure

Code: [Select]

//...
 TForm2 = class(TForm)
  protected
    procedure CreateParams(var params: TCreateParams);override;
    //...
  end;

//...

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDesktopWindow;
end;                         


Thank you very much.
But when I restore Form1, it shows behind Form2.
Is this any bug of LCL? This doesn’t happen in Linux.
I want 2 forms behavior completely dispart. Except adhesion in the taskbar when drag them. Like most program does.

[derek.john.evans]

Here is something I stumbled across.

I'm unsure why it works. Its 5 independent forms in one process. No Windows commands.

[mercury]

Here is something I stumbled across.

I'm unsure why it works. Its 5 independent forms in one process. No Windows commands.

Where is Form1 ?!
Do you mean, don't use Form1. Then other forms will be independent ?

Well, I decided not badger this problem anymore. Anyway it works.
Thank for your solution.

[derek.john.evans]

Yep. For some reason if you set the main FormStyle := fsMDIChild;  , it doesn't show.

Then set the other forms with ShowInTaskBar := stAlways.

I guess you would also set the CloseAction of the other forms in OnClose:

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

1. procedure TForm3.FormClose(Sender: TObject; var CloseAction: TCloseAction);
2. begin
3.   CloseAction := caMinimize;
4. end;    
5.  

I'd be interested to see if it works under Linux.

[mercury]

I'd be interested to see if it works under Linux.

Linux doesn’t have this problem.

And in Linux the Lazarus IDE shows all the forms in taskbar, I hope Windows do this too.

[taazz]

I'd be interested to see if it works under Linux.

Linux doesn’t have this problem.

Problem? what problem? is it not expected when an application is minimized to be completely minimized and not leave various floating windows around? Are you telling me that if you minimize the IDE menubar on linux the rest of the windows stay unminimized?
As for the original question don't change the default behavior of windows with out a very good reason even then make sure that I can revert to the default behavior, in this case when the main form is minimized the application and all its open windows are minimized and that makes sense to me. How would you minimize the entire application in one click otherwise?

[mercury]

As for the original question don't change the default behavior of windows with out a very good reason even then make sure that I can revert to the default behavior, in this case when the main form is minimized the application and all its open windows are minimized and that makes sense to me. How would you minimize the entire application in one click otherwise?

I just want make my program behavior like Firefox or other multi window program.
Each form behavior independent like a standalone program.
And I never want minimize the entire application in one click.

Here is my source.

[valdir.marcos]

I just want make my program behavior like Firefox or other multi window program.
Each form behavior independent like a standalone program.
And I never want minimize the entire application in one click.

Tabbed GUI Interface = TDI = Tabbed Document Interface
https://en.wikipedia.org/wiki/Tab_%28GUI%29

Check if one of these solutions may help you:
http://wiki.freepascal.org/TTDINotebook
https://github.com/stavarengo/delphi-tdi

[mercury]

Tabbed GUI Interface = TDI = Tabbed Document Interface
https://en.wikipedia.org/wiki/Tab_%28GUI%29

Check if one of these solutions may help you:
http://wiki.freepascal.org/TTDINotebook
https://github.com/stavarengo/delphi-tdi

I didn't mean multi-tab.
This problem has been already solved. See my source “333.zip”.