Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Опять вопрос связаный с RichEdit! 


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;
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;

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх






Память: 0.74 MB
Время: 0.024 c
1-22079           kserg@ukr.net         2001-12-19 13:11  2002.01.08  
Как корректно связать кнопку с ToolBara c пунктом меню в MainMenu?


1-22179           ikar                  2001-12-21 09:10  2002.01.08  
Как перебрать корневые узлы в TTreeView ?


6-22287           Андрей                2001-08-08 10:35  2002.01.08  
Кто нибудь работал с WebSnap ????


14-22413          РУС                   2001-11-11 21:27  2002.01.08  
CD-RW


1-22144           shornik               2001-12-20 11:36  2002.01.08  
Мастера !!!! Пожалуйста помогите с проблемой !