FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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. |
#2
|
||||
|
||||
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 |
#3
|
||||
|
||||
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) |
#4
|
|||
|
|||
No me funciona bien la solucion propuesta.Muchas gracias de todas formas.A ver si me pueden decir una solucion alternativa.Gracias
|
#5
|
||||
|
||||
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 |
#6
|
|||
|
|||
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; |
|
|
|