AnimateWindow с Delphi XE2

Question

Привет, У меня есть проблема с функцией AnimateWindow в Delphi XE2, проблема в том, что я использую скины, предлагаемые XE2, найденные в окнах, при использовании скина any и в сочетании с AnimateWindow, программа смешивает нормальный дизайн окон части окна со шкурами, хуже всего то, что окно заморожено и больше не может двигаться. код только это:

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

Как это исправить?

Answer 1

Проблема, кажется, существует во всех версиях, что обеспечивает «Стили» (XE2 .. X Сиэтл) и может быть легко неоднократных следующим образом:

• Новый проект VCL
• Параметры проекта - Внешний вид - Любой доступный стиль

Добавить код, как и в вопросе

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

d run. Окно появляется на экране, но полностью не отвечает. Элементы управления в окне, как представляется, работают нормально (пока только минимальное тестирование).

Обходное решение заключается в том, чтобы установить свойство Position на что-то еще, чем по умолчанию poDefault.

Embarcadero качество центральный поиск не выявил никаких сообщений. После того, как я сделаю еще несколько исследований, я отправлю отчет.

---

Сообщается, РСП-13459, окно со стилем применяется замерзает на призыв AnimateWindow

---

обновление 24.4.2016 Вчера я получил уведомление о RSP-13459:

Этот выпуск исправлен для 10.1 Берлин, он не воспроизводит его с build 24.0.22088.5349.1.