AnimateWindow avec Delphi XE2

Question

Bonjour J'ai un problème avec la fonction AnimateWindow dans Delphi XE2, le problème est que lorsque j'utilise les habillages XE2 proposés dans les apparences de fenêtres, lorsque j'utilise un skin et que je le combine avec AnimateWindow, le programme mélange conception normale des fenêtres d'une partie de la fenêtre avec des peaux, le pire est que la fenêtre est gelée et ne peut plus bouger. Le code est seulement ceci:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    AnimateWindow(Form1.Handle,200, AW_CENTER); 
end; 

Comment puis-je résoudre ce problème?

Answer 1

Le problème semble exister dans toutes les versions qui offre 'styles' (XE2 .. X Seattle) et peut facilement se répéter comme suit:

• Nouveau VCL projet
• Options du projet - Apparence - Tous modèle disponible

code Ajouter comme dans la question

procedure TForm2.FormCreate(Sender: TObject); 
begin 
    AnimateWindow(Form2.Handle,200, AW_CENTER); 
end; 

Une d courir. La fenêtre apparaît sur l'écran mais ne répond absolument pas. Les contrôles sur la fenêtre semblent fonctionner normalement (jusqu'ici seulement des tests minimes).

Une solution de contournement consiste à définir la propriété Position à autre chose que la valeur par défaut poDefault.

La recherche centrale de qualité Embarcadero n'a fait apparaître aucun rapport. Je vais déposer un rapport après que je fasse un peu plus d'enquête.

---

Rapporté, RER-13459, fenêtre avec le style appliqué se fige sur appel à AnimateWindow

---

Mise à jour 24/04/2016 J'ai reçu hier une notification concernant RSP-13459:

Cette problème est fixé pour 10.1 Berlin, il ne le reproduit pas avec construire 24.0.22088.5349.1.