Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуск Form4 один раз и всё 
:(
    Опции темы
Janger
Дата 19.6.2013, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Мне нужно, что бы Form4 вывелась всего один раз. При первом запуске программы, и что бы больше она вообще не появлялась нигде...
Т.е. как получается, пользователь запускает программа, появляется Form4, пользователь вводит там определённые данные, и нажимает "Далее", и переходит на Form1.
всё, Form4 мне вообще больше не нужно будет...
Подскажите пожалуйста, как это можно сделать?
PM MAIL   Вверх
kami
Дата 19.6.2013, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 22
Всего: 72
Цитата(Janger @  19.6.2013,  15:06 Найти цитируемый пост)
появляется Form4, пользователь вводит там определённые данные, и нажимает "Далее"

Эти данные где-то же сохраняются, ведь так?
Что мешает перед показом формы проверить наличие этих данных, и если их есть - то не показывать лишнее?
PM MAIL WWW   Вверх
Poseidon
Дата 19.6.2013, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Код

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {Form4};

{$R *.res}

begin
  Application.Initialize;

  Form4:= TForm4.Create(nil);
  Form4.ShowModal;
  Form4.Free;

  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.


Это сообщение отредактировал(а) Poseidon - 19.6.2013, 16:11


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
northener
Дата 19.6.2013, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 20
В дополнение к предыдущему сообщению.
Форму TForm4 при этом стоит удалить из списка автосоздаваемых форм.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Данкинг
Дата 19.6.2013, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Кроме kami никто вопроса ТС не понял...


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
northener
Дата 19.6.2013, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 20
Цитата(Данкинг @  19.6.2013,  19:13 Найти цитируемый пост)
Кроме kami никто вопроса ТС не понял...

А я считаю, что только Poseidon и я вопрос ТС поняли smile
Имхо, речь об обычной проверке логин/пароль.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Poseidon
Дата 19.6.2013, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(northener @  19.6.2013,  17:56 Найти цитируемый пост)
Форму TForm4 при этом стоит удалить из списка автосоздаваемых форм.
При удалении строчки Application.CreateForm(TForm4, Form4); даже в ручную, форма сама удалиться из автосоздаваемых.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
northener
Дата 19.6.2013, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 20
Цитата(Poseidon @  19.6.2013,  20:17 Найти цитируемый пост)
При удалении строчки Application.CreateForm(TForm4, Form4); даже в ручную, форма сама удалится из автосоздаваемых.

Я говорил только что надо удалить. А как именно меня не волновало. 
А то ведь автор мог и так написать:
Код

program Project1;
uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {Form4};
{$R *.res}
begin
  Application.Initialize;
  Form4:= TForm4.Create(nil);
  Form4.ShowModal;
  Form4.Free;
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

 smile 


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Janger
Дата 19.6.2013, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Цитата(Poseidon @ 19.6.2013,  16:09)
Код

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {Form4};

{$R *.res}

begin
  Application.Initialize;

  Form4:= TForm4.Create(nil);
  Form4.ShowModal;
  Form4.Free;

  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Ну в принципе да, именно так всё и должно работать, вот только он всё равно выдаёт ошибку(((
PM MAIL   Вверх
northener
Дата 19.6.2013, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 20
Цитата(Janger @  19.6.2013,  20:55 Найти цитируемый пост)
только он всё равно выдаёт ошибку

Секретную?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Janger
Дата 19.6.2013, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Цитата(northener @ 19.6.2013,  21:09)
Цитата(Janger @  19.6.2013,  20:55 Найти цитируемый пост)
только он всё равно выдаёт ошибку

Секретную?

Ааа..)) Всё я решил проблему, я ещё Form5 добавил...))
А теперь проблема вот в этом...
Смотрите, у меня открывается Form4. я в ней заполняю данные  и всё дело переходит в Form1,
но Form4 не закрывается, и когда я пишу код:
Код

Form4.Close;

Дабы эта форма закрылась, то происходит такая вешь, что закрывается и Form4 и Form1, да и вообще программа завершает своё скупое существование)))
PM MAIL   Вверх
northener
Дата 19.6.2013, 21:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 20
Цитата(Janger @  19.6.2013,  21:19 Найти цитируемый пост)
Дабы эта форма закрылась, то происходит такая вешь, что закрывается и Form4 и Form1, да и вообще программа завершает своё скупое существование

Значит сделал совсем не так как предложил Poseidon. И Form4 осталась главной формой приложения. :(
Короче - код в студию.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Данкинг
Дата 19.6.2013, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
northener, как я понял, требуется, чтобы форма запускалась только один раз при первом запуске программы на данном компе.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
northener
Дата 19.6.2013, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 20
Цитата(Данкинг @  19.6.2013,  21:46 Найти цитируемый пост)
northener, как я понял, требуется, чтобы форма запускалась только один раз при первом запуске программы на данном компе. 

Может быть  и так. Но ТС всё равно при старте хочет показать некую форму ввода некоторых данных, которые должен ввести пользователь. Но как он не старается у него эта форма становится главной формой и просто закрыть он её не может.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Poseidon
Дата 19.6.2013, 22:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(Данкинг @  19.6.2013,  21:46 Найти цитируемый пост)
требуется, чтобы форма запускалась только один раз при первом запуске программы на данном компе.
Неужели телепаты с отпуска вернулись? Я вот даже и не подумал о таком варианте smile

Цитата(Janger @  19.6.2013,  21:19 Найти цитируемый пост)
Смотрите, у меня открывается Form4. я в ней заполняю данные  и всё дело переходит в Form1,
но Form4 не закрывается, и когда я пишу код:
Как "переходит" и где "пишешь код"? Ничего вообще не понятно.

Цитата(northener @  19.6.2013,  20:50 Найти цитируемый пост)
Я говорил только что надо удалить. А как именно меня не волновало. 
Выкрутился  smile 



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1055 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.