Опять вопрос связаный с RichEdit!
Man In Red © (2001-12-16 14:31:00)
Помогите, pleaaasse!
Короче, на форме лежат: RichEdit1 и RichEdit2 и Timer.
В RichEdit1 есть текст, а таймер каждую секунду выделяет по
порядку по одному символу в тексте, копирует и вставляет в
RichEdit2.
Как сделать, чтобы когда выделился последний символ в строке,
таймер автоматически переводил каретку на новую строку в RichEdit1
и также ставил каретку на новую строку в RichEdite2, и опять
выделял по одному символу по порядку до тех пор, пока символы не
кончатся?
Спасибо, зарание!
KilkennyCat (2001-12-17 01:48:00) [1]
var
Form1: TForm1;
a : longint;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
var
b : longint;
begin
inc(a);
b := rxrichedit1.SelStart;
rxrichedit1.SelStart := a;
rxrichedit1.SelLength := 1;
if b = rxrichedit1.SelStart then БАСТАМАНЬЯНА!
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
rxrichedit1.SelStart := 0; // устанавливаем каретку в начало
rxrichedit1.SetFocus; // отнимаем фокус у кнопки
timer1.Enabled := true // запускаем!
end;
Или я опять неправильно понял? тогда вопрос задан
некорректно.
У этого кода глюк - выделяет символ перевода строки. Чтобы
устранить, надо проверить, не является ли следущий символ переводом
строки и если да, то два раза инк(а)
Наверх 
ЧАТ |
Орешник |
|
