[RusSTEEL]

Создан проект с материнским окном, в нем MainMenu, при запуске формы при попытке открыть дочернее окно через MainMenu выскакивает ошибка прикрепленная ниже.

текст самого проект(хз нафиг, но выложу вдруг в чем поможет)

Код:

program AppName;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10},
  Unit11 in 'Unit11.pas' {Form11},
  Unit12 in 'Unit12.pas' {Form12};

{$R *.RES}


begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm6, Form6);
  Application.Run;
end.

[Assistant]

лучше бы вы выложили тот код, которым вызываете дочернее окно.

[RusSTEEL]

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

лучше бы вы выложили тот код, которым вызываете дочернее окно.

дак обычный при нажатии на н1 в маинменю - форм2.сшоу;

[Assistant]

а на форме этой в OnActive (OnShow) ничего нет?

[Voron]

Попробуй этот код tform2.create(self)

[Assistant]

оооо, кстати да, не заметил что Form2 не создается автоматически, конечно тогда будет ошибка.

[NumLock]

Код:

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm6, Form6);
  Application.Run;
end.

[Assistant]

мда, вот что значит спать 3 часа в сутки

[RusSTEEL]

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

оооо, кстати да, не заметил что Form2 не создается автоматически, конечно тогда будет ошибка.

удалить вот это Application.CreateForm(TForm2, Form2); ??

предпологаю что нет =)

[NumLock]

RusSTEEL, нет, это не для тебя было сообщение) покажи модуль Unit2.pas.

[RusSTEEL]

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

RusSTEEL, покажи модуль Unit2.pas.

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids;

type
  TForm2 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Button6: TButton;
    Query1: TQuery;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    Query5: TQuery;
    DataSource1: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

end;

end.

создал обычный баттон для пробы вызвать форму с него та же ошибка, я хз че такое

[NumLock]

ну все правильно. при таком вызове:

Код:

Form2.Show;

и:

Код:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

форма Form2 покажется только 1 раз. после ее закрытия ее невозможно будет больше показать. выход: создавать ее в runtime, а не в auto-create forms.

[RusSTEEL]

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

ну все правильно. при таком вызове:
[/code]форма Form2 покажется только 1 раз. после ее закрытия ее невозможно будет больше показать. выход: создавать ее в runtime, а не в auto-create forms.

не понял

[Black Raider]

убери

Код:

Action:=caFree;

либо :
оставить

Код:

Action:=caFree;

убрать в соурсе проекта

Код:

Application.CreateForm(TForm2, Form2);

и создавать форму ручками.

[RusSTEEL]

Сообщение от Black Raider

и создавать форму ручками.

дак я не понял зачем создавать "форму ручками" если она создана уже мне ее нужно просто открыть! она уже готовая там таблички кнопочки и т.д.