Проблема в связке кнопки и формы

[Djleito]

Помогите пожалуйста сязать кнопку в меню с формой. Вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N101: TMenuItem;
    N111: TMenuItem;
    N121: TMenuItem;
    N12: TMenuItem;
    N22: TMenuItem;
    N32: TMenuItem;
    N42: TMenuItem;
    N62: TMenuItem;
    N72: TMenuItem;
    N81: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N23: TMenuItem;
    N33: TMenuItem;
    N43: TMenuItem;
    N52: TMenuItem;
    N63: TMenuItem;
    N73: TMenuItem;
    N82: TMenuItem;
    N91: TMenuItem;
    N102: TMenuItem;
    N15: TMenuItem;
    N24: TMenuItem;
    N34: TMenuItem;
    N44: TMenuItem;
    N53: TMenuItem;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit4;

{$R *.dfm}

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Position:= poDeskTopCenter;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;

end.

Вот я переделываю:
procedure TForm1.N11Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
а именно строчку Form2.Show; в Form4.Show;
но почему то у меня выдается ошибка...
Жду вашей помощи. Спасибо
P.S Form4 находится в Unit4

[Valio]

А form4 есть вообще?

[Djleito]

ну да и он находится в той же папке что и юнит1

[Zer0]

А форма создается автоматически или нет? Можно посмотреть в Project-Options, форма должна быть в списке Auto-created form

[Пёсик]

но почему то у меня выдается ошибка...

Что за ошибка? Ошибок разных масса.

[Djleito]

я просто из Unit2 сделал еще и Unit4 и переделал все формы из Form2 в Form4 в файлах Unit4.pas и Unit4.dfm

[Djleito]

Сообщение от Пёсик

Что за ошибка? Ошибок разных масса.

ошибка такая: [Fatal Error] Unit4.pas(1): Program or 'Unit4.pas' recursively uses itself

[Пёсик]

Сообщение от Djleito

я просто из Unit2 сделал еще и Unit4 и переделал все формы из Form2 в Form4 в файлах Unit4.pas и Unit4.dfm

Ага, а ссылка на Unit4 в uses, скорее всего, осталась. Найти и ликвидировать или заменить на другой юнит

[Djleito]

Сообщение от Пёсик

Ага, а ссылка на Unit4 в uses, скорее всего, осталась. Найти и ликвидировать или заменить на другой юнит

объясните пожалуйста поподробнее в каком файле удалять и в каком месте файла

[Zer0]

в Unit4 найти строчку
uses ... unit4 и убрать этот модуль оттуда
Суть ошибки - что модуль ссылается сам на себя, если Вы копировали, то это скорее всего тут:

implementation

uses Unit2, Unit4;

{$R *.dfm}

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