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