Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 215

•  TDictionary Custom Sort  6 265

•  Fast Watermark Sources  6 062

•  3D Designer  8 969

•  Sik Screen Capture  6 384

•  Patch Maker  6 809

•  Айболит (remote control)  6 791

•  ListBox Drag & Drop  5 666

•  Доска для игры Реверси  96 333

•  Графические эффекты  7 008

•  Рисование по маске  6 294

•  Перетаскивание изображений  5 180

•  Canvas Drawing  5 548

•  Рисование Луны  5 252

•  Поворот изображения  4 799

•  Рисование стержней  3 396

•  Paint on Shape  2 653

•  Генератор кроссвордов  3 537

•  Головоломка Paletto  2 825

•  Теорема Монжа об окружностях  3 638

•  Пазл Numbrix  2 380

•  Заборы и коммивояжеры  3 062

•  Игра HIP  2 018

•  Игра Go (Го)  1 942

•  Симулятор лифта  2 303

•  Программа укладки плитки  2 007

•  Генератор лабиринта  2 461

•  Проверка числового ввода  2 144

•  HEX View  2 479

•  Физический маятник  2 094

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как отловить сообщения о прокрутке TScrollBar



Автор: Олег Кулабухов

Нижеприведенный пример передвигает второй ScrollBar на такое же количество едениц, на которое передвинет пользователь первый. Т.е. синхронизирует их.


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,
      TheRangeMin,
      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;





Похожие по теме исходники

Сообщения между процессами Windows




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте