Club Builder

[Javier]

Hola a todos, y gracias por tomarse la molestia de ver este mensaje;

Necesito hacer un boton donde me mande el cursor a determida linea de un Memo, por ejemplo si quiero ir a la linea 105 sin necesidad de utilizar el teclado, que el codigo del boton me mande hacia alla.

Es como el boton que trae el Block de Notas del Windows XP, el boton se llama "Ir a" y ese boton me pregunta a que linea quiero ir.

Ojala me pudieran ayudar, gracias ....

[Manolo]

Hola

Creo recordar que el TMemo tiene entre sus propiedades una llamada Pos con los datos en los que se encuentra el cursor. Prueba si este se puede variar manualmente.

Saludos Manolo

[Javier]

Gracias Manolo lo voy a intentar y despues te digo que paso

[KAYETANO]

Hola

Un ejemplo rapido.

He colocado en un TForm un TMemo, un TEdit y un TButton, y en el evento OnClick del boton he puesto este codigo (mu chapucero pero funciona)

code:

---

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int cuentaLineas = 0;
   int x, linea = StrToInt(Edit1->Text);
   if (linea == 0 | | linea > Memo1->Lines->Count) {
      Application->MessageBox("El numeor de linea esta fuera de rango", "ERROR", MB_OK + MB_ICONERROR);
      return;
   }
   for ( x=0; x < Memo1->Text.Length() && cuentaLineas < linea-1; x++ ) {
      if (Memo1->Text[x+1] == '\n')
         cuentaLineas ++;
   }
   Memo1->SelStart = x;
   Memo1->SetFocus();
}

---

espero que te sirva

Salu2
KAYETANO