VPF::Вот это проблема! - Форум программистов

Bibimij

Дата 24.9.2005, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.8.2005

Репутация: нет
Всего: нет

Суть проблемы такова: моя прога сидит в трее, при нажатии на кнопу [x] она (прога) должна сворачиваться. Всё работает, но по анимации сворачивания видно как она сворачивается в левый нижний угол smile

, а хотелось бы чтобы анимация показывала свёртование в трей, т.е. в правый нижний угол... smile

Rrader

Дата 24.9.2005, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Вероятно, ты сворачиваешь саму форму.
Попробуй:

Код


ShowWindow(Application.Handle, SW_MINIMIZE);
ShowWindow(Application.Handle, SW_HIDE);

--------------------

Let's do this quickly!
Rest in peace, Vit!

mntek

Дата 24.9.2005, 13:30 (ссылка)

(нет голосов)

Загрузка ...

freakin_brain

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 15.8.2004
Где: saint-petersburg

Репутация: нет
Всего: 1

так сам обрабатывай ее сворачивание_) например так:

Код


procedure tform1.button1click(sender: tobject);
begin
  timer1.enabled := true;
  x := form1.left;
  y := form1.top
end;

procedure tform1.timer1timer(sender: tobject);
begin
  if x < screen.width - 100 then
    begin
      inc(x, 50);
      form1.Left := x
    end;
  if y < screen.height - 100 then
    begin
      inc(y, 50);
      form1.top := y
    end;
  if (x < screen.width - 100)and(y < screen.height - 100) then
    begin
       timer1.enabled := false;
       form1.minimize
    end
end;

писал на память, так что могут быть глюки_)

Bibimij

Дата 24.9.2005, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.8.2005

Репутация: нет
Всего: нет

Цитата(Rrader @ 24.9.2005, 13:30)

Вероятно, ты сворачиваешь саму форму.
Попробуй:

Код


ShowWindow(Application.Handle, SW_MINIMIZE);
ShowWindow(Application.Handle, SW_HIDE);

А теперь, внимание! smile

Последний вопрос!
(Барабанная дробь, зрители апплодируют, апплодируют, закончили апплодировать...) smile

А как теперь проанимировать таким же дошираком развёртывание формы??? smile

Александра

Дата 24.9.2005, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 20.2.2005
Где: Москва

Репутация: 7
Всего: 12

SW_RESTORE

--------------------

rsm

Дата 24.9.2005, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 999
Регистрация: 16.3.2005

Репутация: нет
Всего: 62

Накатал на скорую руку маленький пример с использованием специальной встроенной функции AnimateWindow, может кому интересно будет. Справка по функции.

Присоединённый файл ( Кол-во скачиваний: 17 )

aniwnd.zip 4,46 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »