Cita:
Empezado por roman
El ScrollBox tiene las propiedades VertScrollBar y HorzScrollBar. En ellas puedes cambiar el atributo Visible a false.
// Saludos
|
Gracias Roman, pero cuando hago aquello, deja de hacer lo que quiero que haga.
Código Delphi
[-]
var
Form1: TForm1;
FPunto: TPoint;
implementation
....
....
....
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
GetCursorPos(FPunto);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
NuevoPunto: TPoint;
begin
If ssLeft in Shift then
Begin
GetCursorPos(NuevoPunto);
ScrollBox1.HorzScrollBar.Position:= ScrollBox1.HorzScrollBar.Position + (FPunto.X - NuevoPunto.X);
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position + (FPunto.Y - NuevoPunto.Y);
FPunto:= NuevoPunto;
End;
end;