Как сделать чтобы форма плавно убиралась с экрана

← →
В режиме поиска (2003-02-13 15:18) [0]

если на нее не указвает курсор мыши и плавно появлялась при наведении ?
Заранее спасибо.

← →
Игорь Шевченко (2003-02-13 15:19) [1]

AnimateWindow

← →
В режиме поиска (2003-02-13 15:22) [2]

2 Игорь Шевченко © (13.02.03 15:19)

А можно подробнее?

← →
Anatoly Podgoretsky (2003-02-13 15:24) [3]

Ну первое понятно, а вот второе из области фантастики формы нет на экране и в то же время ты как то умудряешься на нее навести курсор.

← →
В режиме поиска (2003-02-13 15:27) [4]

2 Anatoly Podgoretsky © (13.02.03 15:24)
Ну это я уж слишком загнул :-)
Скажем ведет себя как taskbar, когда в его свойствах стоит галочка "автоматически убирать с экрана"

← →
MAN-In-RED (2003-02-13 15:45) [5]

> В режиме поиска (13.02.03 15:18)

> если на нее не указвает курсор мыши и плавно появлялась
> при наведении ?

А что значит плавно появлялась?

← →
В режиме поиска (2003-02-13 15:50) [6]

>Скажем ведет себя как taskbar, когда в его свойствах стоит
>галочка "автоматически убирать с экрана".

Другими словами всплывающее окно ;-)

← →
Грустный Хью (2003-02-13 16:46) [7]

Мысль века:
AlphaBlendValue := 1 ( to 255)
AlphaBlend := True (False)
Формы не видать, а сообщения ловит.

← →
Беспечный Ангел (2003-02-14 17:43) [8]

> Грустный Хью

Ага! В 95/98 форточке как раз AlphaBlend будет работать! ;) Не, так дело не пойдет...

Отлавливай положение мыши, и ресайзь окно.

← →
Armen (2003-02-14 18:53) [9]

DefferWindowPos

← →
Грустный Хью (2003-02-15 01:42) [10]

← →
Chlavik (2003-02-15 04:15) [11]

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var i: byte;

begin
for i := 255 downto 0 do begin AlphaBlendValue := i; Application.ProcessMessages; end;
end;

AlphaBlend должно быть true ....

← →
Chlavik (2003-02-15 04:17) [12]

Пашет только под не ранее win 2000

← →
AlexSV (2003-02-15 10:55) [13]

Идем Help->Win32 SDK->Find(закладка)
набираем AppBar и изучаем

Как сделать чтобы форма плавно убиралась с экрана Найти похожие ветки