Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

De nuevo la pregunta está relacionada con RichEdit! Encontrar ramas similares


Man In Red   (2001-12-16 14:31) [0]

Ayuda, por favor!
En resumen, en el formulario están: RichEdit1 y RichEdit2 y Timer.
Hay texto en RichEdit1, y el temporizador selecciona cada segundo un carácter en el texto uno por uno, copia y pega en RichEdit2.
¿Cómo asegurarse de que cuando se resalta el último carácter en una línea, el temporizador transfiere automáticamente el carro a una nueva línea en RichEdit1 y también coloca el carro en una nueva línea en RichEdite2, y nuevamente selecciona un carácter en orden hasta que los caracteres terminen?
Gracias de antemano!



KilkennyCat   (2001-12-17 01:48) [1]

var
Form1: TForm1;
a: longint;

implementación

{$ R * .DFM}

procedimiento TForm1.Timer1Timer (Sender: TObject);
var
b: longint;
comenzar
inc (a);
b: = rxrichedit1.SelStart;
rxrichedit1.SelStart: = a;
rxrichedit1.SelLength: = 1;
si b = rxrichedit1.SelStart entonces BASTAMANIAN!
fin;

procedimiento TForm1.Button1Click (Sender: TObject);
comenzar
rxrichedit1.SelStart: = 0; // establece el carro al principio
rxrichedit1.SetFocus; // elimina el foco del botón
timer1.Enabled: = true // run!
fin;

¿O lo entendí mal de nuevo? entonces la pregunta se hace incorrectamente.
Este código tiene una falla: resalta el carácter de avance de línea. Para eliminar, debe verificar si el siguiente carácter es una nueva línea y, de ser así, dos veces inc (a)



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.024 c
7-22443
masik
2001-09-27 13:02
2002.01.08
Menú emergente Y2k


7-22434
tomas2001
2001-09-24 14:04
2002.01.08
Transferencia de archivos vía modem


6-22275
Moscower
2001-10-08 12:43
2002.01.08
¿Cómo puedo enviar un comando chmod a un servidor Linux a través de TNMFTP?


1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid y todos sus descendientes ...


1-22004
KhLexa
2001-12-17 17:57
2002.01.08
Glitches





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español