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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Смена форм, первая вотрую и наоборот 
:(
    Опции темы
CIBRAIKER
  Дата 1.3.2007, 02:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 26.10.2006
Где: Украина, Харьков

Репутация: нет
Всего: 1



Вообщем так --- есть 2 формы: Form1 и Form2.
При нажатии на кнопку BitBtn2 появляется 2-я форма.
Вопрос: как сделать появление обратно 1-й формы при нажатии на кнопку BitBtn1 которая находится на 2-й форме ???
Обработчик кнопки BitBtn2
Код
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
 Form2.ShowModal;
end;


Обработчик кнопки BitBtn1
Код
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
Form1.Show;
end;


При этом нужно чтобы после появления Form2  Form1 изчезала (у меня получилось, но тогда невозможно завершить программу без Form1 smile  )
Обработчик кнопки BitBtn1 работает, но криво ---  Form1 появляется скока не клацай, а когда начинаешь завершать прогу приходится закрывать несколько Form1  smile 
HELP плз
--------------------
Что такое майонез - это драйвер для борьща!    
PM MAIL ICQ   Вверх
corpsehunter
Дата 1.3.2007, 02:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Зачем при нажатии на кнопку 2 ты снова создаешь форму один, если она и так существует? Вот он тебе и создает кучу форм, которые все потом надо закрывать.
Можешь просто при нажатии на 1ю кнопку Form1.visible ставить в false, а при нажатии на кнопку 2 обратно в true.
--------------------
Тест на IQ показал отрицательный результат...
PM MAIL   Вверх
НарКот
Дата 1.3.2007, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Код

Form.Hide

PM MAIL   Вверх
Sunvas
Дата 1.3.2007, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89



И, если ты делаешь showmodal, то как ты собираешься показывать первую форму?? - Тебе для начала надо вторую закрыть!


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
CIBRAIKER
Дата 15.3.2007, 00:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 26.10.2006
Где: Украина, Харьков

Репутация: нет
Всего: 1



Закрыл я вторую форму :
Код
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
 Form1.Show;
  Form2.Close;
end;


А толку?
После выхода из проги она всё равно в памяти остаётся, в процессах висит пока на сбросиш...
Нуна сделать что-то вроде инсталяхи, т.е кнопаеш в первой форме на кнопку "далее", вываливается вторая уже с двумя кнопками: "назад" и "далее", когда кликаеш на "далее" появляется третья форма, а когда на "назад" , то вторая  форма изчезает и появляется первая...
Так вот: проблема в том что если кнопать всё подрят - "далее", "далее" , "далее" и на закрытие проги, то всё нормально рулит и завершается(в процессах не остаётся), но как только кликаеш -  "далее", "далее", "назад", вот тут и трабла лезет(после завершения прога остаётся в процессах) smile 
HELP, плз... smile 
--------------------
Что такое майонез - это драйвер для борьща!    
PM MAIL ICQ   Вверх
Sunvas
Дата 15.3.2007, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89



Цитата(CIBRAIKER @  15.3.2007,  00:52 Найти цитируемый пост)
Application.CreateForm(TForm1, Form1);

А эта строка нафига? У тебя же первая форма уже создана!

Это сообщение отредактировал(а) Sunvas - 15.3.2007, 17:42


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
ama_kid
Дата 15.3.2007, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95



Цитата
Нуна сделать что-то вроде инсталяхи

Ну раз нуна, значит мона...  smile  
Лови в аттаче...

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  IntallForm.rar 4,85 Kb


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
CIBRAIKER
Дата 15.3.2007, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 26.10.2006
Где: Украина, Харьков

Репутация: нет
Всего: 1



Да уже убрал я 
Код
Application.CreateForm(TForm1, Form1);


поменял на
Код
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form2.Hide;
 Form3.Show;
end;


Всё равно трабла осталась smile 
--------------------
Что такое майонез - это драйвер для борьща!    
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




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


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

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