Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Mais uma vez a questão está relacionada com o RichEdit! Encontre agências semelhantes


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

Ajuda, pleaaasse!
Em resumo, no formulário estão: RichEdit1 e RichEdit2 e Timer.
Há texto em RichEdit1, e o timer a cada segundo seleciona um caractere no texto, um por um, copia e cola em RichEdit2.
Como se certificar de que quando o último caractere em uma linha é realçado, o timer transfere automaticamente o carro para uma nova linha em RichEdit1 e também coloca o carro em uma nova linha em RichEdite2 e novamente seleciona um caractere em ordem até que os caracteres terminem?
Obrigado antecipadamente!



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

var
Form1: TForm1;
um: longint;

implementação

{$ R * .DFM}

procedimento TForm1.Timer1Timer (Sender: TObject);
var
b: longint;
começar
inc (a);
b: = rxrichedit1.SelStart;
rxrichedit1.SelStart: = a;
rxrichedit1.SelLength: = 1;
if b = rxrichedit1.SelStart e depois BASTAMANIAN!
end;

procedimento TForm1.Button1Click (Sender: TObject);
começar
rxrichedit1.SelStart: = 0; // define o carro para o começo
rxrichedit1.SetFocus; // remove o foco do botão
timer1.Enabled: = true // run!
end;

Ou eu entendi de novo? então a pergunta é feita incorretamente.
Este código tem uma falha - destaca o caractere de alimentação de linha. Para eliminar, você precisa verificar se o próximo caractere é uma nova linha e, em caso afirmativo, duas vezes inc (a)



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.55 MB
Hora: 0.022 c
7-22418
Mikle
2001-09-20 09:06
2002.01.08
Urgentemente! Comp em vez da impressora.


7-22445
Kirill
2001-09-21 19:03
2002.01.08
Gravar para dll


14-22322
Denso
2001-11-03 14:10
2002.01.08
Quem vai levar? Útil para todos.


3-21925
Nailka
2001-12-04 16:16
2002.01.08
problema com a pesquisa no campo Tipo Longo no Oracle


3-21941
jin
2001-11-30 14:56
2002.01.08
Por favor me ajude a criar um procedimento IB SQL a partir do aplicativo.





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol