 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Hazard
Invitado
|
 Publicado: Mar 21 Oct, 2003 8:53 pm Asunto: Scroll automatico |
 |
|
me pueden dar una manito en hacer un scroll automatico
la idea es que tengo un pad creao entonces al abrir un texto, el usuario mediante algun cuadro de dialogo setee un tiempo para que el texto en forma automatica valla moviendose hacia abajo o sea no ocupe las manos para leer el texto en pantalla, ojala me entiendan y me puedan ayudar (tiene que ver con timers)
gracias
chaol |
|
| Volver arriba |
|
 |
_Viktor
Master
Registrado: 20 Jul 2003Mensajes: 463Ubicación: Santiago, Los Angeles - Chile
|
| Publicado: Vie 28 Nov, 2003 5:59 am Asunto: |
|
|
Asumi un RichEdit para el ejemplo:
| Código: |
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//Activa el Timer segun el tiempo dado en Edit1;
Timer1->Interval = StrToInt(Edit1->Text);
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
RichEdit1->SetFocus();
//Simula que se presiono la tecla Down de los arrows
PostMessage(RichEdit1->Handle,WM_KEYDOWN,VK_DOWN,NULL);
}
//---------------------------------------------------------------------------
|
Espero te sirva.
Saludos!!!
_________________
"Ser inteligente no es ser mas, solo equivocarse menos y no usar Visual Basic"
Atte.
Victor Yañez
Apoyen el Proyecto OpenSource del Club Builder. Ya tenemos componentes Listos!!! |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Vie 28 Nov, 2003 12:28 pm Asunto: |
|
|
Puedes utilizar el siguiente evento de un TMemo, llamado ScrollBy(),,
dentro de un timer pones lo siguiente
| Código: |
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Memo1->ScrollBy(0,-1);
}
|
Utilice un Timer y un Memo, lo que casi no pude realizar, fue que tuviera modo circular, es decir, que cada vez que terminara el texto, se volviera a repetir... pero si no es tu opcion no importa
haaaa!!, se me olvida, si quieres que vaya mas rapido el Scroll, pon en la Interval del l Timer, el valor de 1, por que con el valor de 1000, va un poco lento...
Scroollby (eje x, eje y)
eje x: valor + a la derecha, valor - a la izquierda
eje y: valor + arriba, valor - para abajo.
_________________
 |
|
| Volver arriba |
|
|
|
|
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
