Windows 8 Probleme (z.B. AnimateWindow)

[Martin W]

Hallo,

ich teste gerade verschiedene meiner Delphi XE Anwendungen unter Windows 8 Dev. Preview und mir ist ist folgendes aufgefallen:

Delphi-Quellcode:

procedure TForm.HidePanel;
begin
  AnimateWindow(Panel2.Handle, 200, AW_HIDE or AW_VER_POSITIVE);
end;

procedure TForm_Profile.ShowPanel;
begin
  AnimateWindow(Panel2.Handle, 200, AW_ACTIVATE or AW_VER_NEGATIVE);
end;

Der Code funktioniert unter Windows 7 einwandfrei. Unter Windows 8 funktioniert das einblenden, jedoch nicht das ausblenden. Die folgende Zeile funktioniert unter Windows 8 nicht mehr:

AnimateWindow(Panel2.Handle, 200, AW_HIDE or AW_VER_POSITIVE);

Woran könnte dies liegen? Gibt es eine Übersicht über Funktionen, die unter Windows 8 nicht mehr funktionieren?

Update:

Delphi-Quellcode:

procedure TForm.HidePanel;
begin
  AnimateWindow(Panel2.Handle, 200, AW_HIDE or AW_VER_POSITIVE);
  Panel2.Hide;
end;

procedure TForm_Profile.ShowPanel;
begin
  AnimateWindow(Panel2.Handle, 200, AW_ACTIVATE or AW_VER_NEGATIVE);
  Panel2.Show;
end;

Der Code nach AnimateWindow(Panel2.Handle, 200, AW_HIDE or AW_VER_POSITIVE); wird unter Windows 8 nicht ausgeführt... das Panel bleibt weiter sichtbar! Eine Fehlermeldung erscheint nicht!


Viele Grüße,
Martin W