Вниз
Скачать: CL | DM;

Эффект плавного изменения вида формы.   Найти похожие ветки 

← →
Dmitry_04   (2005-02-09 18:29) [0]

У меня на событие OnClick форма изменяет свой вид функцией "SetWindowRgn", а в Imag-х меняются картинки или становыятся невидимыми.... А можно ли это сделать покрасивее? Т.е. например чтобы форма иссчезла и появилась с новым видом или плавно изменилась из одной в другую...
Я тут попробовал сделать на иссчезновение и появление:

AnimateWindow (Form1.Handle, 50, AW_BLEND or AW_HIDE);
...
Image1.Visible:=false;
...
SetWindowRgn(...);
AnimateWindow (Form1.Handle, 50, AW_BLEND);

Только это как-то не очень... форма изчезает, а появляется не измененной... а потом как появится быстро перерисовывается... Как с этим бороться? Получается что форма не перерисовывается когда она иссчерает...


← →
MacroDenS ©   (2005-02-09 18:36) [1]

form1.repaint


← →
Dmitry_04   (2005-02-09 19:37) [2]

Сделал я вот как:

AnimateWindow (Form1.Handle, 50, AW_BLEND or AW_HIDE);
...
Image1.Visible:=false;
...
SetWindowRgn(...);
Form1.Repaint;
AnimateWindow (Form1.Handle, 50, AW_BLEND);

не помогло...:(


← →
begin...end ©   (2005-02-09 19:39) [3]

> Dmitry_04   (09.02.05 19:37) [2]

А третий параметр в SetWindowRgn равен True?


← →
Dmitry_04   (2005-02-09 19:51) [4]

begin...end да


← →
Dmitry_04   (2005-02-09 19:52) [5]

да


← →
Dmitry_04   (2005-02-09 20:29) [6]

Значит получается тут уже ничего не поделаешь? :(



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
1-1108133125
bloodman
2005-02-11 17:45
2005.02.27
Как нужно удалять TwebBrowser ?


6-1101749591
Serega
2004-11-29 20:33
2005.02.27
Формирование TCP/IP пакетов вручную


14-1107539856
SnakeS
2005-02-04 20:57
2005.02.27
А где делся нормальный форум?


14-1107350591
VID
2005-02-02 16:23
2005.02.27
Нужна русская дока по WinRoute 6.x.x


14-1107196182
zokzok
2005-01-31 21:29
2005.02.27
Delphi 7 и файлы форм (*.dfm)




   Наверх