работа с эвентами 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, и после каких и перед какими строчками писать условия.
ПОЖАЛУЙСТА!

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

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

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