help!!!

← →
melnik11 (2005-12-17 10:57) [0]

Я хочу сделать прогу, в которой через заданное время выплывает какой-либо текст в memo. Помогите, кто знает!

← →
The_scorpion © (2005-12-17 11:11) [1]

Используй таймер (Ttimer но вкладке систем).
У него есть одно событие ontimer и есть свойство interval. Событие генерируется по истечению времени заданного в interval.

← →
Virgo_Style © (2005-12-17 11:22) [2]

melnik11 (17.12.05 10:57)
Это неизлечимо =)

Вообще говоря, если нужна плавность, то скорее всего стоит использовать чей-то Canvas (например, Image) и DoubleBuffered. Или что-то более быстрое.

← →
Pazitron_Brain © (2005-12-17 14:12) [3]

Т.е. ты хочешь, чтобы при создании формы через некоторое время появлялся текст в Memo?
Тогда:
procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled := true; // запускаем Timer end; procedure TForm1.Timer1Timer(Sender: TObject); begin Memo1.Lines.Append("Hello, Pazitron_Brain! "); end;

Также, наверное тебе еще надо установить RO на memo...

← →
melnik11 (2005-12-17 16:12) [4]

Спасибо, но это не то что я хотел. Мне надо на форме задать время и написать текст в memo, и через заданное время выплывает нужный текст. Прога типа будильника.

Настраиваешь таймер на 1 сек
по кнопке "Старт":

dt_started := Now(); dt_delta := StrToDateTime(Edit1.Text); Timer1.Enabled := true;

на событие таймера:
if (Now()-dt_started)>dt_delta then Begin Timer1.Enabled := false; WakeUp(); End;

help!!! Найти похожие ветки