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]

Помогите, pleaaasse!
Короче, на форме лежат: RichEdit1 и RichEdit2 и Timer.
В RichEdit1 есть текст, а таймер каждую секунду выделяет по порядку по одному символу в тексте, копирует и вставляет в RichEdit2.
Как сделать, чтобы когда выделился последний символ в строке, таймер автоматически переводил каретку на новую строку в RichEdit1 и также ставил каретку на новую строку в RichEdite2, и опять выделял по одному символу по порядку до тех пор, пока символы не кончатся?
Спасибо, зарание!



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 then БАСТАМАНЬЯНА!
end;

procedimento TForm1.Button1Click (Sender: TObject);
começar
rxrichedit1.SelStart := 0; // устанавливаем каретку в начало
rxrichedit1.SetFocus; // отнимаем фокус у кнопки
timer1.Enabled: = true // run!
end;

Или я опять неправильно понял? тогда вопрос задан некорректно.
У этого кода глюк - выделяет символ перевода строки. Чтобы устранить, надо проверить, не является ли следущий символ переводом строки и если да, то два раза инк(а)



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

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

em cima









Memória: 0.81 MB
Hora: 0.027 c
3-21966
Z.G.
2001-12-03 12:42
2002.01.08
POR QUE TODAS AS MINHAS PERGUNTAS SÃO RESPONDIDAS Tenho que repetir-me Como pesquisar em um campo Tipo: escrito Tetos e eu preciso encontrar


14-22376
Menina nova
2001-11-07 01:11
2002.01.08
ajudar alguém pode


3-21963
szap
2001-12-05 11:53
2002.01.08
velocidade


4-22469
Zibaro
2001-11-01 19:38
2002.01.08
Картинка в popup меню (как из кнопки


4-22472
Eugene
2001-10-27 17:03
2002.01.08
Como criar seu próprio servidor proxy pequeno?





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