VPF::Показать форму - Форум программистов

SlaUr

Дата 9.3.2004, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Вопрос следующий как при старте моей программы Показать не главную а Form2 (если например программа не зарегестрирована)

Я делаю так:

Код


var Start:Boolean=False;

.......


procedure TForm1.FormCreate(Sender: TObject);
begin
if Registred {Проверяем зарегестрирована ли прога} then Timer1.Enabled:=False else Start:=True;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Not Start then Exit;
Timer1.Enabled:=False;Start:=False;
Form2.Show;
end;

Вообще то это работает , но может можно сделать как то правильней (не через таймер).

Это сообщение отредактировал(а) SlaUr - 9.3.2004, 12:01

Cashey

Дата 9.3.2004, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

Прописать все и ф-цию проверки тоже, в коде проекта в Меню Project->View Source
т.е. у тебя будет прописано, примерно так:

Код

if Registred {Проверяем зарегестрирована ли прога} then begin
  Application.CreateForm(TForm1, Form1);
  Form1.Show;
end
else begin
  Application.CreateForm(TForm2, Form2);
  Form2.Show;
end;

Это сообщение отредактировал(а) Cashey - 9.3.2004, 12:31

--------------------

библия учит любить ближнего, а камасутра обучает как именно

SlaUr

Дата 9.3.2004, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Cashey
А если мне в form2 нужна кнопка (например согласен) после нажатия на которую form2.hide а form1.show? (в вашем предложении form1 вообще не создается)

Cashey

Дата 9.3.2004, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

Да ради бога! Пропиши в кнопке "согласен"

Код

 Application.CreateForm(TForm1, Form1);
 Form1.Show;

--------------------

библия учит любить ближнего, а камасутра обучает как именно

SlaUr

Дата 9.3.2004, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Спасибо я и не подумал что так можно сделать

(думал что создавать формы можно только в .dpr)

Это сообщение отредактировал(а) SlaUr - 9.3.2004, 16:45

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »