Menu systemowe okna

Cześć !

Lazarus lub CodeTyphon.

Mam :
Form1 (bsDialog) + BitBtn
Form2 (bsToolWindow or bsNone)
Menu systemowe Form1 nie jest widoczne.
Po naciśnięciu BitBtn (Form2.ShowModal) ukazuje się menu systemowe Form1.

Dlaczego tak się dzieje i czy jest to prawidłowe ?

Tak, chodzi o Windows-a 10;
To nie jest żadna "większa" aplikacja a raczej eksperyment potwierdzający to dziwne zachowanie.
Cały kod to raptem

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

Dołączam zrzuty z widoku przed:

i po wykonaniu w/w kodu

jurkowojc napisał(a):

... i czy jest to prawidłowe ?

Nie wiem czy jest to prawidłowe.
Ale:

BorderIcons := BorderIcons - [biSystemMenu]; 

w FormCreate rozwiązuje problem.

Podrzuć cały projekt — sprawdzę w Lazarusie.

Jak bsToolWindow or bsNone?
Raczej albo albo. W każdym razie nie chce mi się teraz analizować źródeł dlaczego tak się dzieje że zmienia styl okna głównego ale jest proste rozwiązanie problemu wystarczy mu "przypomnieć":

procedure TForm2.FormShow(Sender: TObject);
begin
  Form1.BorderStyle:= bsToolWindow;
end;    

@furious programming:
bsToolWindow lub bsNone.
BorderIcons := BorderIcons - [biSystemMenu] nie rozwiązuje problemu ponieważ ikona zamykająca okno staje się niewidoczna

To nie jest żaden projekt. To jest (jak pisałem wcześniej) jedynie eksperyment obrazujący zachowanie się okien przy takich a nie innych ustawieniach.

Form2.ShowModal; - to jest cały kod.