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

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

Обработка нажатия кнопок управления курсором...


STARfish ©   (2004-08-17 14:19:00) 

Подскажите, почему у меня не получается обработать нажатие кнопок управления курсором?

листинг процедуры:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = VK_UP then begin
     Form1.ScrollBox1.VertScrollBar.Position:=Form1.ScrollBox1.VertScrollBar.Position-18;
 DrawSomeText(Sender);
 Key:=#0
end;
 if Key = VK_DOWN then begin
Form1.ScrollBox1.VertScrollBar.Position:=Form1.ScrollBox1.VertScrollBar.Position+18;
 DrawSomeText(Sender);
 Key:=#0
 end;
end;

Думкин   (2004-08-18 06:50:00) [1]

Проблема не в скроллинге, а в том, что в обработчик
FormKeyPress не приходит VK_UP и еще ряд. Проверьте.
Хоть и KeyPreviw поставите.

STARfish   (2004-08-17 17:07:00) [2]

Ну прям беда какая то... Когда этот листинг целиком пихаю - все
работает, а когда начинаю выдерать...одни баги.
А нужно, то мне всего лишь по VM_VScroll выполнить мою процедуру.
Может тыкните меня носом в строчки какие мне нада написать, чтоб все заработало?

Cosinus   (2004-08-17 16:35:00) [3]

Пример взят с сайта delphiworld. Просто выдерни то, что тебе не нужно.
Как перехватить сообщения прокрутки в TScrollBox  
-----------------------------------------------------------------

Следующий пример перхватывает сообщения скроллирования в компоненте TScrollBox, тем самым синхронизируя два скролбара. Если один из скролбаров изменяет своё положение, то значение второго скролбара изменяется на такую же величину. Сообщения скролирования перехватываются путём сабклассинга оконной процедуры (WinProc) у скролбара.

type
 {$IFDEF WIN32}
 WParameter = LongInt;
 {$ELSE}
 WParameter = Word;
 {$ENDIF}
 LParameter = LongInt;

{Declare a variable to hold the window procedure we are replacing}
var
 OldWindowProc : Pointer;

function NewWindowProc(WindowHandle : hWnd; TheMessage : WParameter;
ParamW : WParameter; ParamL : LParameter) : LongInt
{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
var
 TheRangeMin : integer;
 TheRangeMax : integer;
 TheRange : integer;
begin
 if TheMessage = WM_VSCROLL then
 begin
   {Get the min and max range of the horizontal scroll box}
   GetScrollRange(WindowHandle, SB_HORZ, TheRangeMin, TheRangeMax);
   {Get the vertical scroll box position}
   TheRange := GetScrollPos(WindowHandle, SB_VERT);
   {Make sure we wont exceed the range}
   if TheRange < TheRangeMin then
     TheRange := TheRangeMin
   else
   if TheRange > TheRangeMax then
     TheRange := TheRangeMax;
   {Set the horizontal scroll bar}
   SetScrollPos(WindowHandle, SB_HORZ, TheRange, true);
 end;
 if TheMessage = WM_HSCROLL then
 begin
   {Get the min and max range of the horizontal scroll box}
   GetScrollRange(WindowHandle, SB_VERT, heRangeMin, TheRangeMax);
   {Get the horizontal scroll box position}
   TheRange := GetScrollPos(WindowHandle, SB_HORZ);
   {Make sure we wont exceed the range}
   if TheRange < TheRangeMin then
     TheRange := TheRangeMin
   else
   if TheRange > TheRangeMax then
     TheRange := TheRangeMax;
   {Set the vertical scroll bar}
   SetScrollPos(WindowHandle, SB_VERT, TheRange, true);
 end;

 {Call the old Window procedure to allow processing of the message.}
 NewWindowProc := CallWindowProc(OldWindowProc, WindowHandle,
 TheMessage, ParamW, ParamL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 {Set the new window procedure for the control and remember
 the old window procedure.}
 OldWindowProc := Pointer(SetWindowLong(ScrollBox1.Handle,
 GWL_WNDPROC, LongInt(@NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 {Set the window procedure back to the old window procedure.}
 SetWindowLong(ScrollBox1.Handle, GWL_WNDPROC, LongInt(OldWindowProc));
end;

STARfish   (2004-08-17 16:15:00) [4]

Слава богу у меня тока вертикальный скролл интересует.
Каким образом это реализовать можно?

Cosinus   (2004-08-17 16:13:00) [5]

STARfish ©   (17.08.04 16:08) [13]
Тов. [lamer]Barmaglot совершенную правду сказал, видимо отлавливать сообщения WM_HScroll и WM_VScroll.

STARfish   (2004-08-17 16:08:00) [6]

А как тогда проще выполнить мою процедуру по изменению ползунка скроллбокса, если у него такого события нету?

Cosinus   (2004-08-17 15:55:00) [7]

>>STARfish ©   (17.08.04 15:34) [7]
Прошу прощения, это я дурак слепой... Я думал там просто ScrollBar...

>>[lamer]Barmaglot ©   (17.08.04 15:36) [8]
Согласен ;)

STARfish   (2004-08-17 15:54:00) [8]

Да и Дельфи глючить чет стал... "." нажимаю, думаю хоть щас мне весь список вывалит, а нет его...делся кудато...

[lamer]Barmaglot   (2004-08-17 15:46:00) [9]

то STARfish ©   (17.08.04 15:42) [9]

Наверное их просто нет... А Cosinus ©   (17.08.04 15:32) [6] ляпнул не подумав... Правда может это я отстал от жизни...

А благодорить меня рано, если ты сможешь их использовать я сильно удивлюсь...

STARfish   (2004-08-17 15:42:00) [10]

Да...сжульничал....
Просто уже настока туплю уже сижу....
По подробнее можно на счет OnScroll, почему в ивентах я его не вижу?
Спасибо!

[lamer]Barmaglot   (2004-08-17 15:36:00) [11]

?
WM_HScroll
WM_VScroll

STARfish   (2004-08-17 15:34:00) [12]

Че то я в ивентах скроллбокса не нашел такого...

Cosinus   (2004-08-17 15:32:00) [13]

ScrollBox1.OnScroll ?
ScrollBox1.OnChange ?

STARfish   (2004-08-17 15:17:00) [14]

А еще маленький ворпосик... Как теперь мне обрабатывать мне мою процедуру DrawSomeText(Sender) по нажатию мышкой на линейке прокрутки Скроллбокса, т.е. как при изменении позиции ползунка скролбокса мышкой вызвать обработку моей процедуры?

STARfish   (2004-08-17 15:13:00) [15]


> Сделай на OnKeyDown...
> и вместо Key:=#0; пиши Key:=0;!!!
> Будет работать!!!!

Все! Огромное спасибо! Работает...

Рамиль   (2004-08-17 14:40:00) [16]


> if Key = VK_UP then begin

:о) Хочешь сказать, что компилятор промолчал?

46_55_41_44   (2004-08-17 14:29:00) [17]

Сделай на OnKeyDown...
и вместо Key:=#0; пиши Key:=0;!!!
Будет работать!!!!

Mihey_temporary   (2004-08-17 14:29:00) [18]

Проверяй то же самое в OnKeyDown и на всякий случай поставь на форме KeyPreview = True, если ещё не поставил.

Наверх

Титульная страница Поиск, карта сайта Написать письмо