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

[jenny]

Всем привет!

Xотелось бы связать два модуля. Чтобы модуль 1 подключался к модулю 2 и наобород. Один unit поместила в uses а другой в implementation. Все работает (нажимаю в unit 1 на кнопку, выскакивает unit 2, на кнопку в unit 2 выскакивает unit 1) по одному кругу.

[Лекс Айрин]

jenny, а зачем такие сложности?

Код: Выделить всё

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Showmodal; 
  Form2.Hide;
//  Form1.Showmodal; {вы закрыли форму, как вы собираетесь что-то в ней дальше делать? Может, и получится, но неаккуратно...}
end;

Закрытие основной формы вызывает закрытие программы. Поэтому, для него лучше использовать visible=false

непонятно зачем нужно использовать Showmodal? Если для поднятия окна, то почему бы не использовать SetFocus?

[jenny]

только что попробoвала, выскакивает та же самая ошибка.

[Лекс Айрин]

jenny А весь проект дать слабо? Возможно, ошибка где-то еще. Ну или хотя бы описания TForm1 и Tform2.

[jenny]

begin
Form2.Hide;

[Лекс Айрин]

Замени showmodal на Show скорее всего, дело в этом.

[jenny]

Программа по одному кругу работает, а повторому нет. Я думаю тут проблема в unit2, так как ошибка указывает на него (что форма видима)

[Лекс Айрин]

и если использовать visible=false, то для показа лучше использовать visible=true

[jenny]

и правда дело в Show. А чем они отличаются?

[Лекс Айрин]

итоговая, работоспособная версия, с учетом всех моих слов.
unit1

Код: Выделить всё

procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Visible:= false;
  form2.Show;
end;     

unit2

Код: Выделить всё

procedure TForm2.Button1Click(Sender: TObject);
begin

  Form1.Visible:=true;
  Form2.Hide;
end;

Добавлено спустя 1 минуту 52 секунды:
showmodal открывает окно, которое должно быть всегда наверху. И, как насколько мне известно, не применимо для главного окна.

[jenny]

спасибо за помощь

[Лекс Айрин]

visible, просто скрывает элемент управления. Чисто на нем можно делать самомодифицирующиеся окна.


Да не за что.