Скачать: CL | DM;

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, и через заданное время выплывает нужный текст. Прога типа будильника.

---

← →
alex_*** ©   (2005-12-17 16:40) [5]

Настраиваешь таймер на 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;


---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c