Форум: "Начинающим";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];
Вниз
Небольшой вопрос Найти похожие ветки
← →
Grotesque (2006-07-11 17:45) [0]Как сделать, чтобы через опредёлённое время с момента создания формы (onCreate) прооисходило какое-либо действие например ShowMessage("")?
← →
tesseract © (2006-07-11 17:45) [1]см TTimer.
← →
Grotesque (2006-07-11 18:11) [2]Смотрел, а как собсно им пользоваться?
← →
Calibr (2006-07-11 18:11) [3]Напиши обработчик создания формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
sleep(ms);//ms = время в миллисекундах
ShowMessage("Прошло ms миллисекунд");
end;
← →
Ivolg © (2006-07-11 18:17) [4]>Grotesque
Бросаешь Timer на форму и используешь собитие OnTimer... Свойство Interval
- это время в миллисекунах...
← →
tesseract © (2006-07-11 18:19) [5]> [2] Grotesque (11.07.06 18:11)
Извращённый пример сплэша.
var NeedClose:boolean;
procedure Tform1.FormCreate(Sender:Tobject)
begin
Timer1.interval:=500;// через пять сек надо очухаться
Timer1.Enabled:=true; // будем считать что по умолчанию вырублено
NeedClose:=false;
end;
procedure Tform1.Timer1Timer(Sender:Tobject)
begin
ShowMessage("Секундой меньше");
NeedClose:=true;
end;
procedure TFrom1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=NeedClose;
end;
← →
StriderMan © (2006-07-11 18:23) [6]
> Timer1.interval:=500;// через пять сек надо очухаться
5 сек = 5000 мсек
← →
Grotesque (2006-07-11 18:25) [7]Спасибо! Ещё вопрос. Как сделать чтобы ShowMessage вылазил каждые 100000 мс? C помощью цикла?
← →
Grotesque (2006-07-11 18:25) [8]Спасибо! Ещё вопрос. Как сделать чтобы ShowMessage вылазил каждые 100000 мс? C помощью цикла?
← →
Loginov Dmitry © (2006-07-11 18:32) [9]> C помощью цикла?
С помощью таймера.
← →
Grotesque (2006-07-11 18:42) [10]Попробую
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c
