Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-04-2013
rruffino rruffino is offline
Miembro
 
Registrado: dic 2004
Ubicación: Berrotaran, Cordoba - Argentina
Posts: 215
Poder: 20
rruffino Va por buen camino
ScrollBar sin barras de desplazamiento

Hola gente, buenas tardes. Tengo un scrollbox a la cual le estoy metiendo varios componentes alineados a la izquierda dentro de él... Lo que necesito hacer es mediante dos botones que esten fuera del scrollbox poder mover el scrool horizontal hacia la izquierda y/o derecha) para ir viendo los distintos componentes que he puesto. Lo que necesito es que la barra horizontal de desplazamiento no se vea, por eso el uso de los dos botones fuera del scrollbox.
Lo que he hecho es poner justamente la barra horizontal como no visible y en los botones modifico la posicion, pero no resulta...

Desde ya agradezco si alguien puede darme una mano.
Gracias!!!
Responder Con Cita
  #2  
Antiguo 19-04-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola rruffino.

Para el ejemplo agrega cuatro buttons (Left, Right, Up, Down).
Código Delphi [-]
...
implementation

const
   DELTA = 10;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with SCrollBox1 do
  begin
    HorzScrollBar.Visible := False;
    VertScrollBar.Visible := False;
  end;
end;

procedure TForm1.btnScrollRightClick(Sender: TObject);
begin
  TWinControl(ScrollBox1).ScrollBy(DELTA, 0);
end;

procedure TForm1.btnScrollLeftClick(Sender: TObject);
begin
  TWinControl(ScrollBox1).ScrollBy(-DELTA, 0);
end;

procedure TForm1.btnScrollDownClick(Sender: TObject);
begin
   TWinControl(ScrollBox1).ScrollBy(0, DELTA);
end;

procedure TForm1.btnScrollUpClick(Sender: TObject);
begin
   TWinControl(ScrollBox1).ScrollBy(0, -DELTA);
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 22-04-2013
rruffino rruffino is offline
Miembro
 
Registrado: dic 2004
Ubicación: Berrotaran, Cordoba - Argentina
Posts: 215
Poder: 20
rruffino Va por buen camino
Respuesta..

Hola ecfisa, gracias por la respuesta.
Te comento, he creado un formulario para probarlo, pero no funciona. He puesto un panel alineado al fondo (bottom), dentro de este panel he puesto los botones para moverme hacia la izquierda alineado a la izquierda y el boton para correrme a la derecha alineado a la derecha.. He puesto el scrollbox alineado atClient y dentro del scroll he puesto varios componentes para probar....
He copiado el código que me has pasado y al probarlo no puedo hacerlo mover.
Cualquier otra sugerencia, bienvenida sea.
Muchas gracias nuevamente...
Responder Con Cita
  #4  
Antiguo 22-04-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola rrufino.

Te adjunto un demo funcionando correctamente y acorde a las especificaciones de tu último mensaje para que así puedas localizar donde esta el error.

Saludos.
Archivos Adjuntos
Tipo de Archivo: zip rrufino.zip (3,9 KB, 61 visitas)
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #5  
Antiguo 25-04-2013
rruffino rruffino is offline
Miembro
 
Registrado: dic 2004
Ubicación: Berrotaran, Cordoba - Argentina
Posts: 215
Poder: 20
rruffino Va por buen camino
Respuesta

Hola ecfisa, nuevamente gracias por tu respuesta...
Te comento, he probado tu código y funciona al pelo... deja de funcionar cuando los componentes que puse dentro del scrollbox los alineo. Por ejemplo, dentro del scroll puse 3 paneles y los alinee a la izquierda, en ese caso deja de funcionar, caso contrario funciona. Pero justamente necesito tenelos acomodados a la izquierda, se podra?
Saludos, Román.-
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Barras de desplazamiento que desaparecen zajoma API de Windows 1 27-05-2008 16:29:01
¿Mostrar barras de desplazamiento en Timage? boss475 Gráficos 2 14-04-2008 19:18:26
Barras desplazamiento TDBGrid dvlt .NET 1 14-09-2007 11:31:44
Barras desplazamiento vertical y horizontal Leomedellin Varios 3 06-04-2005 23:50:58
Quitar barras de desplazamiento acrophet Varios 3 15-06-2004 17:25:32


La franja horaria es GMT +2. Ahora son las 18:32:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi