Скачать: CL | DM;

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

← →
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

---

← →
Palladin ©   (2005-02-13 11:56) [6]

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

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c