Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Исчезающая форма [D7, Win95/98]

Bogdan © (2005-02-13 11:12:00)
Здравствуйте, такой вопрос: необходимо чтоб форма появилась на опредиленный момент врамени и сама исчезла. Написал вот такой код но выдает ошибку 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;

Bogdan (2005-02-13 12:53:00) [1]
>Зачем тебе щелкать раз в 100мс? щелкни один раз через 2 секунды! И закрой форму. Это первое, второе, ошибка не связана с приведенным кодом, либо ты что то скрываешь, тогда помогай себе сам.

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

Palladin (2005-02-13 11:56:00) [2]

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

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

Kerk (2005-02-13 11:48:00) [3]

> form15.Close;

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

Bogdan (2005-02-13 11:44:00) [4]
>У тебя же сейчас не щелкает.

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

Gero (2005-02-13 11:42:00) [5]

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

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

Bogdan (2005-02-13 11:40:00) [6]
>1 А сразу выставить в Timer1.Interval:=2000 не судьба?
2 Эта ошибка возникает не из этого кода.

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

Palladin (2005-02-13 11:31:00) [7]
1 А сразу выставить в Timer1.Interval:=2000 не судьба?
2 Эта ошибка возникает не из этого кода.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »