Sep 30

Как делается перехват сообщений в компоненте TScrollBox?

В представленной статье мы попробуем решить вопрос: «Каким образом представляеться возможным перехватывать сами сообщения прокрутки в компоненте под названием TScrollBox?..

Чтобы получить ответ на данный вопрос нужно учесть слеующее…

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

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

Данная кодировка хорошо дает понять грамотное решение поставленной перед нами задачи:

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…

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

Успехов и удачного программирования в среде Дельфи!

Ваша компания находиться в поисках качественного терминала сбора данных? Советуем обратить свое внимание на терминалы casio, широкий ассортимент которых представлен на веб-сайте casio.ms! Представленные casio тсд одни из лучших терминалов сбора данных представленных на рынке!


Поделитесь вашими мыслями



Ссылки в комментариях будут свободны от nofollow.

Поддерживаемые теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> 

Ссылки в комментариях будут свободны от nofollow.