C++ Builder 6 Ayuda

[ecfisa]

Hola.

Dado que Gonza10 aclara,

Empezado por Gonza10

..., soy estudiante de programación recién estamos empezando a usar c++ builder 6 y todavía no le agarro la mano ...

voy a dar una versión apróximada de lo que yo pretendería de un estudiante que, con conocimientos básicos, intente implementar esa tarea:

Código PHP:

#define TO_LEFT  false
#define TO_RIGHT true

AnsiString msg ="";
AnsiString spc;
int cont = 0;
bool sentido = TO_RIGHT;

/* Inicializar */
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  spc = spc.StringOfChar(' ',50);
  Timer1->Interval = 40;
  Timer1->Enabled  = false;
  btnStartStop->Caption = "Comenzar";
  Edit1->Width = 530;
  Edit1->Text  = "PRUEBA DE DESPLAZAMIENTO DE TEXTO";
}

/* Timer OnTimer */
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if (sentido)
    Caption = msg.SubString(msg.Length(), 1) + msg.SubString(1, msg.Length()-1);
  else
    Caption = msg.SubString(2, msg.Length()-1) + msg.SubString(1, 1);
  msg = Caption;
}

/* Sale de Edit */
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
  msg = spc + Edit1->Text;
}

/* Desplazar a la izquierda */
void __fastcall TForm1::btnToLeftClick(TObject *Sender)
{
  sentido = TO_LEFT;
}

/* Desplazar a la derecha */
void __fastcall TForm1::btnToRightClick(TObject *Sender)
{
  sentido = TO_RIGHT;
}

/* Detener - Comenzar */
void __fastcall TForm1::btnStartStopClick(TObject *Sender)
{
  Timer1->Enabled = !Timer1->Enabled;
  btnStartStop->Caption = Timer1->Enabled ? "Detener" : "Comenzar";
} 


Saludos