Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вот это проблема!

Автор: Bibimij 24.9.2005, 13:19

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

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

Автор: Rrader 24.9.2005, 13:30

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

Код


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

Автор: mntek 24.9.2005, 13:30

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

Код


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

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

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

Код


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

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

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

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

Автор: Александра 24.9.2005, 14:51

SW_RESTORE

Автор: rsm 24.9.2005, 19:47

Накатал на скорую руку маленький пример с использованием специальной встроенной функции AnimateWindow, может кому интересно будет. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/animatewindow.asp