FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Establecer numero maximo lineas RichEdit o Memo
Hola me gustaria saber como establecer un numero maximo de lineas a un richedit o un memo.Es decir,quiero que el numero maximo de lineas sean 3 y no sobrepase de ahi.Gracias
|
#2
|
|||
|
|||
Ya va.Ya esta hecho.
|
#3
|
||||
|
||||
Saludos
Cita:
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
#4
|
|||
|
|||
Pues lo que hecho ha sido un poco chapuza pero bueno,en mi caso me vale mas que de sobra.A ver,yo simplemente he contado el numero de letras que me cabe en una linea,por ejemplo 30.Pues si quieres tres lineas,es simplemente multiplicar por 3.Osea que en el campo MaxLength del richedit simplemente deberiamos poner 90.
|
#5
|
||||
|
||||
Bueno...
A mí se me ocurre: sustituyendo el 9 por el número/variable/constante que prefieras. y el showmessage por algo que borre las lineas que sobran (Memo.Lines.Delete(I) Saludos
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) Última edición por Ohcan fecha: 27-12-2005 a las 11:04:12. |
#6
|
||||
|
||||
OnKeyUp
No me quedé nada a gusto con el post anterior...
Así que mejor sería, quizás, esto: MaxLines lo he definido allí mismo... pero sería mejor que fuera una constante ...
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) Última edición por Ohcan fecha: 27-12-2005 a las 12:32:36. Razón: Retocar código |
#7
|
||||
|
||||
Y si esto va a ser para todos los TMemo....
Crea una palicación desde cero... pon un memo en el formulario (llámalo ElMemo) y sustituye el código de la Unit1 por el que está aquí arriba.
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) |
#8
|
|||
|
|||
No me funciona bien la solucion propuesta.Muchas gracias de todas formas.A ver si me pueden decir una solucion alternativa.Gracias
|
#9
|
||||
|
||||
Pues hombre, yo creo que deberías empezar por explicarnos porqué no te funciona bien. A primera vista, la solución de Ohcan parece cumplir lo esperado.
// Saludos |
#10
|
|||
|
|||
La función de ohcan, de lujo, pero si además quieres que funcione parecido a un Tedit (o sea si escribes al principio del Tmemo que no borre la ultima línea entera, se me ocurre esta solución
Código:
procedure TForm1.memoKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if memo.lines.count >3 then begin keybd_event(vk_back, 0, 0, 0); keybd_event(vk_back, 0, KEYEVENTF_KEYUP, 0); end; end; |
|
|
|