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




Вниз

Как намутить такое, что бы............................ 


Man In Red   (2001-12-15 20:12) [0]

У меня такой вопрос:
На форме лежат RichEdit и Timer. Так вот, в RichEdite, есть текст,
и таймер каждую секунду по одному символу в тексте выделяет.

1. Как сделать, чтобы когда выделился последний символ в тексте, таймер автоматически останавливался?

2. И как сделать что бы каретка переходила на новую строку ( Если конечно есть еще одна строка, а если нет то таймер останавливался, конечно ), если выделенный символ был последним в строке?

Очень прошу, помогите, заранее благодарен!



KilkennyCat   (2001-12-16 06:56) [1]

Елементарно. Для стандартного RichEdit. (Delphi 5 tested)

procedure TForm1.Button1Click(Sender: TObject); // нажатие кнопки
begin
richedit1.SelStart := 0; // устанавливаем каретку в начало
richedit1.SetFocus; // отнимаем фокус у кнопки
timer1.Enabled := true // запускаем!
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
a : longint;
begin
a := richedit1.SelLength; // сохраним старое значение
//увеличиваем выделение на один символ
richedit1.SelLength := richedit1.SelLength + 1;
// проверяем упирание в конец строки
if a = richedit1.SelLength then begin
// пытаемся перейти на другую
richedit1.SelLength := richedit1.SelLength + 2;
// Проверяем, не уперлись ли при переходе
if a = richedit1.SelLength then begin
// уперлись, однако. Значит, конец текста. Отключаем таймер.
timer1.Enabled := false;
// сообщаем юзеру, а то он не догадается....
showmessage("Баста, карапузики!")
end
end
end;



Man In Red   (2001-12-16 13:29) [2]

НЕТ, ТЫ НЕ ПОНЯЛ!
КАЖДУЮ СЕКУНДУ ВЫДЕЛЯЕТСЯ ТОЛЬКО ОДИН СИМВОЛ, СНАЧАЛА ПЕРВЫЙ ВЫДЕЛИЛСЯ ПОТОМ ВТОРОЙ, ТРЕТИЙ И Т. Д.....................




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




Наверх





Память: 0.72 MB
Время: 0.024 c
1-22182           Val                   2001-12-20 18:11  2002.01.08  
Chart -> JPEG


14-22383          Vadim                 2001-11-08 11:01  2002.01.08  
Форумы программистов


1-22171           Dim                   2001-12-20 14:19  2002.01.08  
Возможно ли чудо?


14-22408          fliz                  2001-11-08 15:24  2002.01.08  
это что, баг в Дельфи ?! :((


3-21963           szap                  2001-12-05 11:53  2002.01.08  
Скорость