Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
jenny44
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 31
1

Связать два модуля

10.07.2015, 11:22. Просмотров 925. Ответов 2
Метки нет (Все метки)

Всем привет!

Xотелось бы связать два модуля. Чтобы модуль 1 подключался к модулю 2 и наобород. Один unit поместила в uses а другой в implementation. Все работает (нажимаю в unit 1 на кнопку, выскакивает unit 2, на кнопку в unit 2 выскакивает unit 1) по одному кругу. Когда я нажимаю на кнопку в unit 1 по второму кругу (не запуская заново программу) выскакивает ошибка: TCustomForm.ShowModal for Form2.TForm2 impossible, because already visible (hint for designer forms: set Visible property to false) already modal.

код при нажатии на кнопку:
Pascal
1
2
3
4
5
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.close;
  Form1.Showmodal;
end;
так же использовала вместо close:
- form2.Visible:= false;
- form2.release;
- form2.free;

постоянно выходит ошибка. Прошу помочь новичку )))
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.07.2015, 11:22
Ответы с готовыми решениями:

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

Как связать два Combobox-а?
как связать Два Combobox? помогите плиз код если можно

Как связать два комбобокса
Как связать два комбобокса? Например HTTP из первого комбобокса и Anonymous из...

Связать два DBGrid на одной форме
Нужно связать два DBGrid находящихся на одной форме. Как это сделать? ...

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

2
D1973
Модератор
3477 / 2498 / 1229
Регистрация: 21.01.2014
Сообщений: 10,429
Записей в блоге: 3
Завершенные тесты: 1
10.07.2015, 12:19 2
Лучший ответ Сообщение было отмечено jenny44 как решение

Решение

Для Form1
Delphi
1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Hide;
 Form2.Show;
end;
Для Form2
Delphi
1
2
3
4
5
procedure TForm2.Button1Click(Sender: TObject);
begin
 Form2.Hide;
 Form1.Show;
end;
Добавлено через 1 минуту
Для второй же формы, чтобы ее нельзя было на крест закрыть
Delphi
1
2
3
4
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := false;
end;
0
jenny44
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 31
10.07.2015, 12:48  [ТС] 3
спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.07.2015, 12:48

Связать два ComboBox'a, чтоб от выбора пункта в первом, формировались пункты во втором
Пишу программу, нужно связать два ComboBox'a, чтоб от выбора пункта в первом,...

Связать эти два юнита, чтоб и с одного и второго можно было обмениваться данными
Всем привет, есть главный юнит, и есть второй юнит(поток). Как мне связать эти...

Вызвать из динамически созданного модуля процедуру создавшего модуля
Всем привет. Не знал как сформулировать тему - поэтому не бейте меня. Такая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru