Ver Mensaje Individual
  #3  
Antiguo 10-01-2009
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.491
Reputación: 21
MAXIUM Va camino a la fama
Cita:
Empezado por roman Ver Mensaje
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;
Responder Con Cita