Создание нескольких форм

[Лера123]

Добрый день! мне лабу нужно сделать в Лазарусе, я всегда работала в Делфи. Думала, что они не отличаются, но увы....столкнулась с этим при создании дополнительной формы. Значит у меня есть форма, на ней кнопка. при нажатии которой нужно перейти на вторую форму....Ну вот я прописала Form2.Show, он выдал ошибку...потом я добавила в модуль первой формы в Uses Unit2, тогда всё заработало....А теперь мне нужно с формы 2 вернуться на форму 1, прописываю также. пишу в модуле фторой формы Uses Unit1,а в кнопке Form1.Show, но мне он выдаёт ошибку....уже и не знаю. что делать...Может вы знаете????

[_-Re@l-_]

Вы бы хотя бы сказали какую ошибку выдаёт.

[Лера123]

Ах да...совсем забыла....вот, что он мне пишет:
Unit2.pas(8,99) Fatal:Circular unit reference between Unit2 and Unit1

[Stilet]

Ясно.
Допустим у тебя есть модуль Unit1, который проставлен в разделе uses модуля unit2.
Но позарез unit2 нужно прописать в первом модуле.
В этом случае создают второй раздел uses но не в секции interface а в implementation

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2...
{$R *.dfm}
...
end.

[palevg]

Сообщение от Лера123

столкнулась с этим при создании дополнительной формы. Значит у меня есть форма, на ней кнопка. при нажатии которой нужно перейти на вторую форму....Ну вот я прописала Form2.Show, он выдал ошибку...потом я добавила в модуль первой формы в Uses Unit2, тогда всё заработало....А теперь мне нужно с формы 2 вернуться на форму 1, прописываю также. пишу в модуле фторой формы Uses Unit1,а в кнопке Form1.Show, но мне он выдаёт ошибку....уже и не знаю. что делать...Может вы знаете????

Как мне кажется - закрытие Form2 и приведёт к Form1 (если первая перед этим не была закрыта).

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Close
end;

end.