Скачать: CL | DM;

работа с эвентами EndDrag и EndDrop   Найти похожие ветки 

← →
Silver__Dragon   (2006-01-10 13:06) [0]

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

---

← →
Leonid Troyanovsky ©   (2006-01-10 13:34) [1]

> 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.

---

← →
Silver__Dragon   (2006-01-10 14:11) [2]

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

---

← →
Leonid Troyanovsky ©   (2006-01-10 14:36) [3]

> Silver__Dragon   (10.01.06 14:11) [2]

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


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

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

--
Regards, LVT.

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

---

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

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

---

← →
Silver__Dragon   (2006-01-10 15:01) [5]

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

---

← →
Leonid Troyanovsky ©   (2006-01-10 15:43) [6]

> 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:56) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c