델파이 IDE 폼 디자이너의 마우스 휠 스크롤 방향을 바꿔주는 작은 유틸리티

[시골프로그래머]

https://github.com/civilian7/delphi-ide-scroll

 

델파이 IDE 폼 디자이너의 마우스 휠 스크롤 방향을 바꿔주는 작은 유틸리티입니다. 큰 폼을 디자인할 때 휠로 세로, Ctrl+휠로 가로로 빠르게 스크롤할 수 있습니다.

기능

휠 → 세로 스크롤

Ctrl + 휠 → 가로 스크롤

세로 / 가로 스크롤 감도 개별 조정 (휠 1노치당 스크롤할 줄 수)

감도 설정은 실행 파일 옆 IDEScroll.ini 에 자동 저장 / 복원

 

작동 원리

Windows 저수준 마우스 훅(WH_MOUSE_LL)을 사용합니다. IDE 프로세스에 인젝션하지 않으므로 Delphi / C++Builder 버전·비트수와 무관하게 동작합니다.

커서 아래 창에서 부모를 거슬러 올라가 폼 디자이너 컨테이너 창(TFormContainerForm)을 찾고, 휠 이벤트를 WM_VSCROLL / WM_HSCROLL 메시지로 변환해 전달합니다.

디자이너 위가 아닐 때는 휠 동작에 전혀 개입하지 않습니다.

 

다운로드

Releases 에서 IDEScroll.exe 를 받으세요. 별도 설치가 필요 없는 단일 실행 파일입니다.

 

사용법

IDEScroll.exe 실행

후킹 시작 버튼 클릭 (또는 Enter)

세로 / 가로 감도를 원하는 값으로 조정

Delphi IDE 폼 디자이너에서 휠(세로) / Ctrl+휠(가로) 사용

다시 버튼을 누르면 후킹이 중지됩니다. 종료 시 감도 설정이 저장됩니다.

백그라운드에서 계속 동작하도록 두려면 프로그램을 띄워둔 채로 후킹을 켜 두면 됩니다.

두 가지 형태

형태설명타깃

스탠드얼론 EXE별도 실행 파일. 켜고 끄는 UI + 감도 설정 제공Win64

IDE 패키지 (.bpl)IDE에 설치하면 자동으로 후킹. UI 없음Win32 (IDE가 32비트 프로세스)

패키지 버전의 감도는 %APPDATA%\IDEScroll\IDEScroll.ini 에서 조정합니다(첫 실행 시 기본값으로 생성).

패키지 설치

build-bpl.cmd 로 빌드 → bin\IDEScrollPkg370.bpl 생성 (Delphi 13.0 기준; 13.1 IDE에서 빌드하면 ...371.bpl)

IDE 메뉴 Component → Install Packages → Add 에서 해당 .bpl 선택

설치 후 IDE 디자이너에서 휠 / Ctrl+휠 사용 (별도 실행 불필요)

자세한 빌드·설치 절차는 패키지 빌드 가이드 를 참고하세요.

빌드

요구: Delphi 13 (RAD Studio 37.0) 권장

EXE (Win64): build.cmd

패키지 (Win32): build-bpl.cmd

각 스크립트의 STUDIO 경로를 설치된 RAD Studio 버전에 맞게 수정하면 다른 버전으로도 빌드할 수 있습니다. 또는 src\exe\IDEScroll.dpr / src\bpl\IDEScrollPkg.dpk 를 IDE에서 열어 빌드합니다.

프로젝트 구조

src/ common/ 공유 코드 IDEScroll.WheelHook.pas WH_MOUSE_LL 훅 + 휠 → 스크롤 변환 로직 (EXE/패키지 공용) exe/ 스탠드얼론 실행 파일 (Win64) IDEScroll.dpr 진입점 (VCL 애플리케이션) Main.pas / Main.dfm UI (후킹 토글 + 감도 설정) IDEScroll.rc / .RES 리소스 bpl/ IDE 패키지 (Win32, Delphi 13) IDEScrollPkg.dpk design-time 패키지 IDEScroll.IdeHook.pas 로드 시 훅 자동 활성화 build.cmd EXE 빌드 (Win64) build-bpl.cmd 패키지 빌드 (Win32)

EXE와 패키지는 src/common/IDEScroll.WheelHook.pas 훅 로직을 공유합니다.

호환성

동작 대상: 폼 디자이너 컨테이너가 TFormContainerForm 인 모든 Delphi / C++Builder 버전

빌드/검증: Delphi 13 (RAD Studio 37.0), Windows 11 (Win64)

라이선스

MIT © 2026 civilian7