Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Как намутить такое, что бы............................   Найти похожие ветки 

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid и все его потомки...


4-22462
Winnie!
2001-11-01 19:50
2002.01.08
использоание BitBlt и CreateBitmap


1-22100
Avol
2001-12-15 18:29
2002.01.08
Как в Delphi сделать таблицу рекордов для игры?


14-22396
Merlin
2001-11-02 09:54
2002.01.08
Сегодня радостный день! Кроме того, что пятница...


14-22406
VEG
2001-11-10 12:56
2002.01.08
Наслучалось тут со мной разного...