Создание дополнительной формы

[fredi5]

Возникла мне непонятная проблема. Сижу с утра. Уже и Delphi переустановил...
Ясно, что моих скромных знаний недостаточно.
 Хочу добавить еще одну форму. Все делаю,  как написано в учебнике. Добавляю Form2,
объявляю ее в разделе доступных форм, в разделе implementation для Unit1 указываю uses Unit2,
 а для Unit2 указываю uses Unit1.  Компилятор со всем согласен.
При попытке показать форму (Form2.Show;), при обработке события OnClick кнопки, установленной на Form1, выскакивает сообщение - 

(Project Project1.exe raised exception class EAccessViolation with message 'Access
violation at address 004458A6 in module 'Project1.exe of address 000002F4'.
Process stopped.)

При других операциях с формой - сообщение то-же, только меняются адреса.
Delphi7, операционная система - XP.

[RXL]

fredi5, быстрее всего ошибка твоя. Copy-paste не делал?
И вообще, гадать на кофейной гуще: что-то сделал, что-то вылетело - согласись, не спортивно. Покажи код и тогда будем думать. Ведь мало ли что выдает ошибку. Вообще, привыкай пользоваться отладчиком: жми F5 (установить/снять точку останова) на нужной строке и F9 (запуск).

[Вад]

Форма создаётся, прежде чем используется?

[Basurman]

При перекрёстных ссылках модулей:
Ссылка в одном модуле д.б. в разделе interface, а в другом модуле в разделе implementation.
Лучше конечно дай текст программы, что бы зря не теоретизировать, но такие сообщения возникают при обращениии по несуществующему адресу. Вроде попытки присвоения значения внутренней для процедуры переменной типа String.

[fredi5]

Форма создается, прежде чем используется. Про код сказать почти нечего т.к. он состоит
из события обработки только одной кнопки.
На Form1 всего одна кнопка, Form2 - пустая.

[fredi5]

Не хотел занимать много места.
 

Код:

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;
type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
end.

и еще

Код:

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Basurman]

Form2 - не создаётся автоматически, удалена из автосоздаваемых форм в опциях проекта.
Поэтому при обработке клика кнопки в Form1 - Form2.Show вызывает обращение по несуществующему адресу.

[v2]

Можно добавить  в Project1 после
Application.CreateForm(TForm1, Form1);
еще и это
Application.CreateForm(TForm2, Form2);

[fredi5]

Значит не нужно было добавлять форму2 в список доступных. Видимо я не так понял процесс ее создания.
Оставил эту форму в списке автосоздания и ... все заработало !!!!

СПАСИБО.

P.S. Я думал, что только один не сплю в это время суток.

[Basurman]

Автором темы неправильно понимается настройка опций.
Формы не добавляются в список доступных. Они удаляются из списка автосоздания, и в результате становятся доступными для включения в него. Т.е. появляются в списке доступных.
Просто добрый дядя Борланд решил, что все формы заданные в проекте, должны создаваться автоматиченски. Но потом подумал и дал возможность разработчику самому решать когда создавать формы.
Т.е. кроме варианта автосоздания, можно (естественно убрав форму из списка автосоздания) использовать следующий код обработки TForm1.Button1Click:

Код:

    Form2:=TForm2.Create(Self);
    Form2.Show