유수입니다.
스크롤바의 움직임을 아시고 싶으시면 WM_VSCROLL, WM_HSCROLL메시지를 이용해야
합니다. 메모 컴포넌트로 부터 상속받아 컴포를 한개 만드신 다음,
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
를 추가해 메세지에 대한 처리를 할 수 있도록 합니다.
procedure TKEdit.WMHScroll(var Message: TWMHScroll);
begin
with Message do
case ScrollCode of
SB_LINEUP: ..... // 한줄 올라감..
SB_LINEDOWN: ..... // 한줄 내려감
SB_PAGEUP: ..// 한 페이지 올라감...
SB_PAGEDOWN: ..
SB_THUMBPOSITION:
SB_THUMBTRACK: //.. 트랙킹
SB_TOP: ..// 제일 위로...
SB_BOTTOM: ...// 제일 밑으로
end;
end;
물론 반대로 Perform이나 SendMessage로 위의 값을 인자로 주게 되면,
임의로 스크롤바도 제어할 수 있습니다.
|