| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с эвентами EndDrag и EndDrop [D7, XP]

Silver__Dragon ©   (2006-01-10 13:06:00) 

Как они вообще работают? Насколько я понял, если объект был перетащен в определенную точку, то должно происходить то-то и то-то. А если мне нужно, чтобы действие происходило сразу после перемещения бегунка на ScrollBar или TrackBar? Точнее не сразу после перемещения(это был бы эвент OnChange), а после того, как бегунок будет отпущен.

---

Silver__Dragon   (2006-01-10 15:56:00) [1]

СПАСИБО ОГРОМНЕЙШЕЕ!!
все работает...

---

Leonid Troyanovsky   (2006-01-10 15:43:00) [2]

> Silver__Dragon   (10.01.06 15:01) [5]

> вписать имя моего ScrollBara, и после каких и перед какими
> строчками писать условия.


У ScrollBara (TScrollBar) уже определено событие OnScroll.
Т.е., в его обработчике пишем:

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
 var ScrollPos: Integer);
begin
  if ScrollCode = scEndScroll then
    {действия по завершению прокрутки}
end;


Ну, или события завершения scroll (or track) могут быть отловлены у Parent,
например,  в обработчике TForm1 - message WM_HSCROLL ;
for ScrollCode = SB_ENDSCROLL.

--
Regards, LVT.

---

Silver__Dragon   (2006-01-10 15:01:00) [3]

Нет, все-таки я слишком туп. Разжуйте мне, пожалуйста, куда вписать имя моего ScrollBara, и после каких и перед какими строчками писать условия.
ПОЖАЛУЙСТА!

---

Silver__Dragon   (2006-01-10 14:52:00) [4]

спасибо. это у меня Caps Lock включен был, заметил только потом, а переписывать некогда было.

---

Leonid Troyanovsky   (2006-01-10 14:36:00) [5]

> Silver__Dragon   (10.01.06 14:11) [2]

> ТУТ МОИ УСЛОВИЯ ПИХАТЬ?


 property OnVScroll: TNotifyEvent  // вертикальный
 property OnHScroll: TNotifyEvent  // горизонтальный

Обработчики будут вызваны по окончанию прокрутки.

--
Regards, LVT.

ЗЫ: И незачем так кричать.

---

Silver__Dragon   (2006-01-10 14:11:00) [6]

СПАСИБО ОГРОМНОЕ, НО ГЛУПЫЙ ВОПРОС ПОЛНОГО ЧАЙНИКА:А КУДА ТУТ МОИ УСЛОВИЯ ПИХАТЬ?

---

Leonid Troyanovsky   (2006-01-10 13:34:00) [7]

> Silver__Dragon   (10.01.06 13:06)  
> Как они вообще работают? Насколько я понял, если объект
> был перетащен в определенную точку, то должно происходить
> то-то и то-то. А если мне нужно, чтобы действие происходило
> сразу после перемещения бегунка на ScrollBar или TrackBar?
>  Точнее не сразу после перемещения(это был бы эвент OnChange),
>  а после того, как бегунок будет отпущен.


Бегунок это, IMHO, не объект для d'n'd.
Т.е., обычно для него (для того, чем он управляет) это On*Scroll.
Если они не определены, то можно действовать по примеру

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/aa77c94f7a66321b

--
Regards, LVT.

---

Наверх