| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

help!!! [D7, XP]

melnik11 ©   (2005-12-17 10:57:00) 

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

---

alex_***   (2005-12-17 16:40:00) [1]

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


---

melnik11   (2005-12-17 16:12:00) [2]

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

---

Pazitron_Brain   (2005-12-17 14:12:00) [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...

---

Virgo_Style   (2005-12-17 11:22:00) [4]

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

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

---

The_scorpion   (2005-12-17 11:11:00) [5]

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

---

Наверх