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 ?
