freepascal.ru

Всем привет!

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?

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

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

begin
Form2.Hide;

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

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

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

и правда дело в 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 открывает окно, которое должно быть всегда наверху. И, как насколько мне известно, не применимо для главного окна.

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

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


Да не за что.