Как в Delphi 7 gauge связать с timer, если в таймере уже есть другая процедура (открытие формы)

Без имени, 164 просмотра

procedure timer....
begin
//как правильно написать код для gauge?
form1.hide;
form2.show;
end;

Примечание:
Ах, да забыла enabled:=false;. Но все же хотелось бы чтобы эти 2 процесса (заполнение gauge и открытие формы) были единым целым. Это заставка. Мне кто-то когда-то показывал, но я никак не могу вспомнить как надо написать код :-(

Ответы:

marconi

а для чего вам понадобилось в таймере открывать и закрывать формы? от чего вы после этого не остановили таймер? кто вам запрещает использовать 2,3,4,10,100 других таймеров?

Без имени

(Я делал так)
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Gauge1.Progress:= Gauge1.Progress+1;
if Gauge1.Progress=100 then Timer1.Enabled:= false;
if Gauge1.Progress=100 then Button1.Click;

Без имени

кнопку делаешь Visible=false
и при нажатии она открывает вторую форму

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.