StringGrid скроллинг ЗАХВАТОМ

[Yuran]

Доброе время!

Есть грид со скроллбарами, потому что не помещается вся информация на экран.

Как можно реализовать просмотр (тягание, скролл) таблицы при помощи мыши как в PDF? То есть "захватив" мышкой за саму таблицу и перемещая мышку осуществлять скролл.

Как это можно реализовать?

Вариант со ScrollBox не подходит. У грида есть свой скролл. Нужно его использовать.

Подскажите идеи, плиз.

[Stilet]

Такой вариант подойдет?:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;

var  my:integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TStringGrid(Sender).Tag:=1;
  my:=y;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=0 to StringGrid1.RowCount-1 do StringGrid1.Cells[0,i]:=IntToStr(i);
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if  TStringGrid(Sender).Tag=1 then begin
   if y>my then TStringGrid(Sender).Perform(WM_VSCROLL,SB_LINEDOWN,0)
   else TStringGrid(Sender).Perform(WM_VSCROLL,SB_LINEUP,0);
   my:=y;
  end;
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TStringGrid(Sender).Tag:=0;
end;

end.

P.S. Не копипастить.

[Yuran]

Спасибо за ответ

Пробовал подобное

.Perform(WM_VSCROLL,SB_LINEDOWN,0)

И это

SendMessage(mg.Handle,EM_LINESCROLL,0, grid.Rowcount);

Не работает

[Stilet]

А че у меня мой пример сработал?

[kropotkina-alice]

Сообщение от Yuran

Не работает

Stilet дал вам абсолютно рабочий пример.
Попробуйте добавить в процедуру создания формы ещё пару строк для наглядности:

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 StringGrid1.RowCount:=125;
 StringGrid1.Options:=StringGrid1.Options-[goRangeSelect];
 for i:=0 to StringGrid1.RowCount-1 do StringGrid1.Cells[0,i]:=IntToStr(i);
end;