Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 5 937

Раздел: Delphi » Работа с компонентами и библиотеками
/ вопрос закрыт /

Приветствую, уважаемые эксперты!
как сделать выдвижную панель, если подвести мышкой что бы она показывалась и скрывалась, нашел код для отображение лева, не могу сделать для отображение справа и снизу! Спасибо

Приложение:
  1. {{code}}
  2. var Range:integer;
  3. procedure TPanelForm.FormCreate(Sender: TObject);
  4. begin
  5. Width := 100;
  6.  
  7.  
  8. Top := 0;
  9. Range := 0;
  10. Timer1.Enabled := True;
  11. Timer2.Enabled := True;
  12. PanelForm.Show;
  13. end;
  14.  
  15. procedure TPanelForm.Timer1Timer(Sender: TObject);
  16. var
  17. pos: TPoint;
  18. begin
  19. GetCursorPos (pos);
  20. if (pos.X < 10) and (PanelForm.Left < 0) then
  21. begin
  22. range := 20;
  23. PanelForm.Show;
  24. end;
  25.  
  26. if (range <> 0) then PanelForm.Left := PanelForm.Left + range;
  27.  
  28. if PanelForm.Left < 0 - PanelForm.Width then
  29. begin
  30. range := 0;
  31. PanelForm.Left := 0 - PanelForm.Width;
  32. PanelForm.Hide;
  33. end;
  34.  
  35. if (range = 20) and (PanelForm.Left >= 0) then
  36. begin
  37. range := 0;
  38. PanelForm.Left := 0;
  39. end;
  40.  
  41. end;
  42.  
  43. procedure TPanelForm.Timer2Timer(Sender: TObject);
  44. var
  45. pos: TPoint;
  46. begin
  47. GetCursorPos (pos);
  48. if pos.X > PanelForm.Width then range := -20;
  49. end;
  50.  
  51. end.
  52. {{/code}}


casio Вопрос закрыт (ответы не принимаются, мини-форум закрыт)

Вопрос задал: casio (статус: Посетитель)
Вопрос отправлен: 8 февраля 2012, 15:19
Состояние вопроса: закрыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 8 февраля 2012, 17:18; участников в обсуждении: 1.
casio

casio (статус: Посетитель), 8 февраля 2012, 17:18 [#1]:

упс :-) , разобрался ))))

8 февраля 2012, 17:19: Вопрос закрыт (решение принял автор вопроса — casio): разобрался с кодом, можно тему закрыть

9 февраля 2012, 13:10: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:49
Выполнено за 0.02 сек.