AnimateWindow - Как Использовать

← →
valler (2002-11-20 20:05) [0]

Доброго времени суток Мастера.

Попробовал Использовать с TForm. Работает Великолепно.

Возможно ли сделать анимацию для Патели (TPanel) и что для этого надо сделать?

← →
Игорь Шевченко (2002-11-21 13:47) [1]

Все тоже самое, только передать в функцию Handle панели...

← →
valler (2002-11-21 18:40) [2]

В том то и дело, что не работает c panel1.handle;

← →
Игорь Шевченко (2002-11-21 18:45) [3]

If the function fails, the return value is zero. The function will fail in the following situations:

If the window uses the window region. Windows XP: This does not cause the function to fail.
If the window is already visible and you are trying to show the window.
If the window is already hidden and you are trying to hide the window.
If there is no direction specified for the slide or roll animation.
When trying to animate a child window with AW_BLEND.
If the thread does not own the window. Note that, in this case, AnimateWindow fails but GetLastError returns ERROR_SUCCESS.

Ищи свой случай

← →
valler (2002-11-21 20:36) [4]

По ходу разобрался.
Если Кому Интересно сообщаю. Функция коректно работает при появлении или сокытии панели. Следовательно необходимо добавить в класс панели обработку изменения свойства Visible (т. е. сообщения от VCL CM_SHOWINGCHANGED) .

procedure THidenPanel.CMShowingChanged(var Message: TMessage);
begin
inherited;
AnimateWindow(Handle,1000,AW_SLIDE or AW_HOR_POSITIVE);
end;

AnimateWindow - Как Использовать Найти похожие ветки