Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 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); // натискання кнопки
починати
richedit1.SelStart: = 0; // встановлюємо каретку в початок
richedit1.SetFocus; // забираємо фокус у кнопки
timer1.Enabled: = true // запускаємо!
end;

procedure TForm1.Timer1Timer (Sender: TObject);
було
a: longint;
починати
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;



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

НІ ТИ НЕ ЗРОЗУМІВ!
КОЖНУ СЕКУНДУ ВИДІЛЯЄТЬСЯ ТІЛЬКИ ОДИН СИМВОЛ, СПОЧАТКУ перших виділив ПОТІМ ДРУГИЙ, ТРЕТІЙ І Т. Д .....................



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.56 MB
Час: 0.03 c
7-22437
Парадокс
2001-09-25 18:48
2002.01.08
WAV


14-22378
модератор
2001-11-08 07:51
2002.01.08
> Merilin


3-21942
оборот
2001-12-03 12:19
2002.01.08
Добрі люди допоможіть з збереженої процедурою.


4-22509
Каран
2001-11-08 12:50
2002.01.08
GetkeyboardState- Що робить?


3-21986
мрійник
2001-12-06 15:43
2002.01.08
Data Field not permitted on open DataSet





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська