Исчезающая форма

← →
Bogdan (2005-02-13 11:12) [0]

Здравствуйте, такой вопрос: необходимо чтоб форма появилась на опредиленный момент врамени и сама исчезла. Написал вот такой код но выдает ошибку EConvert Error, is not a valid integer value.
Что не так, подскажите пожалуйста, благодарен за ответ.

procedure TForm15.FormCreate(Sender: TObject);
begin
Timer1.Interval:=100;
TickCounter:=0;
timer1.Enabled:=true;
end;

procedure TForm15.Timer1Timer(Sender: TObject);
begin
TickCounter:=TickCounter+1;
if TickCounter=20 then
Begin
timer1.Enabled:=False;
form15.Close;
end;
end;

← →
Palladin © (2005-02-13 11:31) [1]

1 А сразу выставить в Timer1.Interval:=2000 не судьба?
2 Эта ошибка возникает не из этого кода.

← →
Bogdan (2005-02-13 11:40) [2]

>1 А сразу выставить в Timer1.Interval:=2000 не судьба?
2 Эта ошибка возникает не из этого кода.

Какой толк из этого интервала, будет себе щелкать через 2000, хоть день.

← →
Gero © (2005-02-13 11:42) [3]

> Какой толк из этого интервала, будет себе щелкать через
> 2000, хоть день.

У тебя же сейчас не щелкает.

← →
Bogdan (2005-02-13 11:44) [4]

>У тебя же сейчас не щелкает.

Не щелкает, но выдает ошибку, без этого кода все работает ОК.

← →
Kerk © (2005-02-13 11:48) [5]

> form15.Close;

покажи процедуру Form15OnClose

> Какой толк из этого интервала, будет себе щелкать через
> 2000, хоть день.

Зачем тебе щелкать раз в 100мс? щелкни один раз через 2 секунды! И закрой форму. Это первое, второе, ошибка не связана с приведенным кодом, либо ты что то скрываешь, тогда помогай себе сам.

← →
Bogdan (2005-02-13 12:53) [7]

>Зачем тебе щелкать раз в 100мс? щелкни один раз через 2 секунды! И закрой форму. Это первое, второе, ошибка не связана с приведенным кодом, либо ты что то скрываешь, тогда помогай себе сам.

100мс для более точной задержки формы на экране, чтоб долго не мелькала.
А на второе, еслиб я знал что я скрываю?!
Может Forma10 с которой отправляются данные в базу данных имеет два TDateTimePicker, и как то они не могут договорится с TTimer.

Исчезающая форма Найти похожие ветки