Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

не могу поставить локальную ловушку   Найти похожие ветки 

 
lena19   (2004-06-06 00:18) [0]

всем привет.
не могу поставить локальную ловушку
на скрол в мемо,
народ что я не так делаю ?????

procedure TForm1.Button1Click(Sender: TObject);
begin
 CurrentHook:= setwindowshookex(Wm_Vscroll,@VscrollHook,0,memo1.Handle);
 if currenthook = 0 then
 beep;
end;
-------------------------------------------------------
function VscrollHook(nScrollCode:word; nPos:word; hwndScrollBar:longword): longword; stdcall;
begin
beep;
.....
end;


 
Palladin ©   (2004-06-06 07:38) [1]

ты делаешь не так то, что занимаешься тем в чем ничего не понимаешь. теоретическая подготовка, в виде прочтения литературы на тему что такое ловушки (hooks) и что такое сообщения (messages), может тебя спасти... наверно...


 
lena19   (2004-06-06 12:56) [2]

to palladin
подскажи на какой литературе прокачался до palladin(а)


 
Palladin ©   (2004-06-07 00:01) [3]

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

http://www.podgoretsky.com/ddp.html

что конкретно касается твоего вопроса то Рихтер, тоже у Анатолия на сайте, искать лень, но "он там"...


 
TUser ©   (2004-06-07 06:43) [4]


> setwindowshookex(Wm_Vscroll

WH_MSGFILTER или WM_GETMESSAGE и там уже проверить, что за сообщение было


 
Mim1 ©   (2004-06-07 07:05) [5]

[4] TUser ©   (07.06.04 06:43)
Больше ничего не забыли?


 
akvilon ©   (2004-06-07 17:52) [6]

посмотрите свою предыдущую ветку про скроллинг



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

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
14-1088671960
Vlad Oshin
2004-07-01 12:52
2004.07.18
У кого нить осталась ветка, где мы стихи писали на паскале?


1-1089025716
А.Иванов
2004-07-05 15:08
2004.07.18
Есть ли в Delphi 6 какие-либо средства для упаковки файлов?


1-1088777611
VasRog
2004-07-02 18:13
2004.07.18
Строка из массива символов


1-1088689276
Анонимщик
2004-07-01 17:41
2004.07.18
try ... finally


1-1089204501
MuxauJl
2004-07-07 16:48
2004.07.18
Последняя строчка MEMO