Taskleiste taucht plötzlich auf

[-=cats=-]

Hi

Also, ich starte meine Form im maximierten Zustand.

Dafür habe ich diesen Code genommen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) AND NOT WS_CAPTION);
   hoehe := ClientHeight;
   breite := ClientWidth;
   ClientHeight := Screen.Height - 5;
   ClientWidth := Screen.Width - 5;
   Form1.Top := 0;
   Form1.Left := 0;
   Refresh;
end;

Das funktioniert auch alles. Die Taskleiste ist auch verschwunden.
(BorderStyle = bsSizeable).
Dann klicke ich auf "Normalzustand" und die Taskleiste ist da. Das soll
sie auch sein.
Wenn ich jetzt auf den MaximierenButton in der Titelleiste
klicke, bleibt die Taskleiste da ...
Wie bekomme ich die weg ?

Zum Maximieren über die Titelleiste habe ich diesen Code:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  if WindowState = wsMaximized then
  begin
   Button1.Visible := false;
   SpeedButton1.Visible := true;
   SpeedButton2.Visible := true;
   SpeedButton3.Visible := true;
   SpeedButton4.Visible := true;
    SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) AND NOT WS_CAPTION);
  end;
end;

Weiß vielleicht jemand woran das liegt ?

[TurboMartin]

Zitat von -=cats=-:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  if WindowState = wsMaximized then
  begin
   Button1.Visible := false;
   SpeedButton1.Visible := true;
   SpeedButton2.Visible := true;
   SpeedButton3.Visible := true;
   SpeedButton4.Visible := true;
    SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) AND NOT WS_CAPTION);
  end;
end;

Weiß vielleicht jemand woran das liegt ?

Hatte ich gestern nicht das mit FormResize???

procedure TForm1.FormResize(Sender: TObject);
begin
if WindowState = wsMaximized then
begin
Button1.Visible := false;
SpeedButton1.Visible := true;
SpeedButton2.Visible := true;
SpeedButton3.Visible := true;
SpeedButton4.Visible := true;
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) AND NOT WS_CAPTION);
end;
end;
[/delphi]

[-=cats=-]

Ja aber mit FormResize geht das nicht.
Dann merkt er irgendwie erst später, das er maximiert war.
Also, ich maximiere und es passiert nichts.
Erst wenn ich eine andere Aktion durchführe,
macht er die Änderung.
Und mit dem Paint geht es.