Текущий архив: 2006.01.01;
Скачать: 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 вся ветка
Текущий архив: 2006.01.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
