개발자의 사투

델파이 Grid Scroll 자연스럽게 하기 본문

컴방/델파이

델파이 Grid Scroll 자연스럽게 하기

개발자룽 2020. 1. 30. 11:10

델파이 그리드 스크롤 설정.

 

procedure Form.gridMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
    if grid.RowCount - grid.TopRow > grid.VisibleRowCount then
      grid.TopRow := grid.TopRow + 1;
end;


procedure Form.gridMouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
    if grid.TopRow > 0 then
      grid.TopRow := grid.TopRow - 1;
end;

저작자표시 비영리 변경금지 (새창열림)

'컴방 > 델파이' 카테고리의 다른 글

delphi TList  (0) 2020.02.07
delphi E1026 File not Found 델파이 E1026  (0) 2020.02.03
델파이 BorderStyle속성 string으로 변경하기  (0) 2020.01.23
델파이 폼 리사이즈 delphi Form Resize  (0) 2020.01.21
델파이 JSON 파일 읽기(delphi Json File Read)  (0) 2020.01.16
공유하기 링크
'컴방/델파이' Related Articles more
Comments