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

[Altera]

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

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

Да да, и в правду видно... как же...


Лучше не жмотничать и такие вещи как скриншуты сохранять с оригинальным разрешением и с максимальным качеством.

[mavlon_m]

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

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

2Vol666


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

Знаю я, я просто дал вариант

[motaro]

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

[Rebel123]

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

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

зачем выводить на кнопке? по мне так Label будет удобнее! попробуйте с Label'om пороботать

[Rebel123]

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

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

зачем выводить на кнопке? по мне так Label будет удобнее! попробуйте с Label'om поработать

[motaro]

пишу label1.Caption:= Timer1.Interval;
выводит ошибку
[DCC Error] Unit1.pas(82): E2010 Incompatible types: 'string' and 'Cardinal'

[Rebel123]

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

пишу label1.Caption:= Timer1.Interval;
выводит ошибку
[DCC Error] Unit1.pas(82): E2010 Incompatible types: 'string' and 'Cardinal'

Вы логический подумайте?

label1.Caption:= Timer1.Interval;

это ваш код: Отсюда вывод!
Если переводить по русский то получается у вас вот так: Заголовку Лэйбела1 присвоить Таймер1 Интревал! - Это не правильно
в Таком случае вам надо написать:

Label1.Caption:='Timer1.Interval';

- отсюда смотрите 'Timer1.Interval' // когда хотите присвоить Caption, его название будущее должно быть в ковычках
и то, вы только Заголовку Лэйбела Присвоите название Timer1.Interval


А вам нужно чтоб Лэйбл Показывал время!

[Volt]

посмотри я там скидывал пример работы с таймером http://www.programmersforum.ru/showthread.php?t=60744

[motaro]

сделал так

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sec:= sec-1;
  Form1.Button1.Caption := 'OK ('+inttostr(sec)+')';
  if sec = 0 then
    begin
      Timer1.Enabled := False;
      Form1.Close;
  end;
end;

таймер не точный, но отображает