Навигация Scrollbox

[Vova777]

В ScrollBox лежит Image, как бы сделать, чтобы при нажатии, удерживании левой кнопки и перемещении мышью можно было перемещаться внутри ScrollBox (двигать скроллеры)?

[ArtGrek]

procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=True;
  x2:=x;
  y2:=y;
end;

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if PresIm then
    ScrollBox.HorScrollBar.Position := ScrollBox.HorScrollBar.Position - (x2 - x);
end;

procedure TForm1.ImagesMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=False;
end;

[Vova777]

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

procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=True;
  x2:=x;
  y2:=y;
end;

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if PresIm then
    ScrollBox.HorScrollBar.Position := ScrollBox.HorScrollBar.Position - (x2 - x);
end;

procedure TForm1.ImagesMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=False;
end;

а что такое PresIm? Причем нужно одновременно двигать оба скроллера.

[ArtGrek]

var
  presIm: boolean; // я так назвал переменую которая указывает что было нажатие  на картинку, а после отжатия оно false
  x2, y2: integer;
procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=True;
  x2:=x;
  y2:=y;
end;

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if PresIm then
begin
    ScrollBox.HorScrollBar.Position := ScrollBox.HorScrollBar.Position - (x2 - x);
    ScrollBox.VerScrollBar.Position := ScrollBox.HorScrollBar.Position - (y2 - y);
end;
end;

procedure TForm1.ImagesMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=False;
end;

[Vova777]

Решение хорошее, главное простое и понятное, но код не подходит: там движения скроллеров получаются не вменяемые и не совсем управляемые. Т.е. когда проскочит горизонтальный скроллер, а когда вертикальный, в общем не вменяемая навигация.
Нужно так: в какую сторону ведешь мышь - туда и едут скроллеры, если диагональ - то два скроллера, если например горизонтальное направление - то горизонтальный скроллер.

[ArtGrek]

было написано как говорица, "на коленке"
вот:

var
  Form1: TForm1;
  presIm: boolean;
  x2, y2: integer;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if presIm then
  begin
    ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position + (x2 - x);
    ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + (y2 - y);
  end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=True;
  x2:=x;
  y2:=y;
end;

end.

PS. раз логику понял должен был сам исправить

[Vova777]

Надо чтобы в соответствии с движениями мышью, этот код хороший, но управление невменяемое.

[Sibedir]

А чем вам не понравилось предложенное мной решение в вашей же теме http://www.programmersforum.ru/showthread.php?t=139084

[Vova777]

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

А чем вам не понравилось предложенное мной решение в вашей же теме http://www.programmersforum.ru/showthread.php?t=139084

Они у меня не запустились.

[ArtGrek]

попробуите мои последнии пост и заидите на свою другую тему