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.022 c
14-22345
petr_v_a
2001-11-05 20:13
2002.01.08
En defensa de Lana Rozanova & Co !!!


1-22151
Koks
2001-12-20 14:06
2002.01.08
MDI -ClientForm


1-22112
regla verde
2001-12-15 13:55
2002.01.08
Botón de componente de solicitud


6-22316
dmur
2001-09-24 20:58
2002.01.08
Interceptación de errores en la conexión mediante tomas de corriente.


1-22077
Art
2001-12-18 17:19
2002.01.08
Pregunta a pascalschik ???





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 Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana 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