закрытие формы через определенное время

[motaro]

подскажите как сделать так, чтобы форма закрылась через определенное время?

[Vol666]

На форму кидаешь компонент Timer в свойствах задаёшь время 1000=1сек потом в обраб. событий пишешь Form1.Close;

[Пепел Феникса]

ну допустим через таймер...

на форме таймер и у него св-во Enable = false;
далее код:

procedure TForm1.FormShow(Sender:TObject);
begin
 Timer1.Interval:=1000;//тут нужное время
 Timer1.Enable:=true;
end;

procedure TForm1.Timer1Timer(Sender:TObject);
begin
 Close;
end;

[Nester]

Попробуй так:

Procedure TForm1.Timer1Timer(Sender: TObject);
 Begin
  Close
End;

Timer1.Interval=2000

[Vol666]

вОТ КАК ТО ТАК.
P.S. поблагодари, если не сложно...

[mavlon_m]

Попробуй так без TTimer
procedure TForm1.FormShow(Sender:TObject);
begin
sleep(5000);
close;
end;

[Vol666]

вопервых если на форме больше чем 1 таймер с командой слееп они будут тормозить, во вторых кто хавает мою репу

[Rebel123]

procedure TForm1.Timer1Timer(Sender:TObject); // это компонент Ttimer во вкладке System
begin
Form1.Close; // где указывается что Форма1 закроется
end;

На компоненте Timer в свойстве Interval поставь 5000, 1сек=1000, где 5000 обозначает что через пять секунд твоя форма закроется. Свойство Enabled поставь на True, чтоб он был активирован

[Altera]

Сообщение от mavlon_m

Попробуй так без TTimer
procedure TForm1.FormShow(Sender:TObject);
begin
sleep(5000);
close;
end;

Так не получится, всегда через таймер такие вещи делаются, ну или через отдельный поток, если приключения на мягкое место найти хочется лишний раз.

2Vol666

вОТ КАК ТО ТАК.
P.S. поблагодари, если не сложно...
http://programmersforum.ru/attachmen...9&d=1250867833

И что там на картинке видно что-то? Ещё хочешь что-бы поблагодарили...

[Vol666]

Проверял, видно. Совсем если не видно, есть лупа.