Titelleiste Zeichnen

[Real_Thunder]

Mit den Komnenten konnte ich den Style ändern... aber habe da ein grosses Probem...

ich versuche es Mal zu schildern.


in der Hauptform habe ich volgenen Code:

Delphi-Quellcode:

 ShowWindow( Application.Handle, SW_HIDE );
  SetWindowLong( Application.Handle, GWL_EXSTYLE,
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  ShowWindow( Application.Handle, SW_SHOW );

In den Anderen Formen habe ich dann Volgenes:

Delphi-Quellcode:

procedure Tmsg_haupt_form.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;

end;

Das bewirkt, das sich jedes Fenster in die Taskleiste minimiert.. Also quasi als Application Window gilt.

Klappt an sich wunderbar....
Bis ich die Style Komponenten benutze...

Also sobald ich die Benutze minimieren sich die Fenster wieder über die Startleiste....

Hat jemand eine Idee, warum das so ist ?