Текущий архив: 2006.01.29;
Скачать: 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 вся ветка
Текущий архив: 2006.01.29;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.048 c
