Вывод массива TImage на форму в другом модуле.

[sentenso]

Здравствуйте, коллеги. В общем, появилась у меня при написании игры одна проблемка. При попытке вывода массива изображений на панель, расположенную на форме в другом UNIT-е, выскакивает Access Violation на строчке Parent:=Form2.pnlImgLvl;
Вот, собственно, код:

procedure lvlcreate (N:Integer);
begin
imglt:=0;      //Начальные
imgtp:=0;     //параметры
indexpic:=1;
SetLength(lvlmas, N);
for i:=0 to N-1 do begin
lvlmas[i]:=TImage.Create(Form2);
with lvlmas[i] do begin
Parent:=Form2.pnlImgLvl;
Ну дальше нет ничего интересного, там только выстраивание, заполнение изображениями и наложение меток с номерами.

Я не могу понять, что я не так делаю? Access Violation возникает, я так понимаю, при проблемах в обращении к памяти, но в данном случае память выделяется... В чём может быть проблема?

И ещё одно но, когда процедура запускалась во втором модуле, всё было великолепно.

[Баламут]

Form2 надо полагать в этот момент уже существует?

[sentenso]

Сообщение от Баламут

Form2 надо полагать в этот момент уже существует?

Насильно я не вызываю процедуру создания 2 формы, но она создаётся автоматически при запуске проекта, так что я думаю, дело не в этом. Но всё равно, спасибо за ответ. Я постараюсь это проверить.

[Vadja-Son]

Формы соеденены? Иногда программа хочет запускать вспомогательную форму с главной. Я просто тоже игру пишу, у меня такое было. Соеденил формы, код прописывал в другом UNIT-е, но при этом приписывал, чтобы считывал с основной формы а не с вспомогательной. Много возни, но работает!

[sentenso]

Сообщение от Vadja-Son

Формы соеденены? Иногда программа хочет запускать вспомогательную форму с главной. Я просто тоже игру пишу, у меня такое было. Соеденил формы, код прописывал в другом UNIT-е, но при этом приписывал, чтобы считывал с основной формы а не с вспомогательной. Много возни, но работает!

А можно поподробнее?

[kashirin.p]

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

Насильно я не вызываю процедуру создания 2 формы, но она создаётся автоматически при запуске проекта, так что я думаю, дело не в этом. Но всё равно, спасибо за ответ. Я постараюсь это проверить.

Что значит автоматически. Приведите код где создается форма.

[sentenso]

Сообщение от kashirin.p

Что значит автоматически. Приведите код где создается форма.

Форма находится в другом юните, на ней есть 1 компонент - панель. вот весь код 2 юнита:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    pnlImgLvl: TPanel;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}


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

end.

[kashirin.p]

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

Форма находится в другом юните, на ней есть 1 компонент - панель. вот весь код 2 юнита:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    pnlImgLvl: TPanel;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}


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

end.

Не понятно, где создается форма? По твоему коду ниче непонятно.

[sentenso]

Сообщение от kashirin.p

Не понятно, где создается форма? По твоему коду ниче непонятно.

Ну что тут непонятного? ФОорма создана заранее в среде delphi. Её, на сколько я понимаю, не требуется активировать в коде. Она должна активироваться при старте программы. Или я не прав?

[Баламут]

Ну хорошо, создана. Но ведь это еще не значит, что доступна. Напиши в Unit1 следующее:

implementation

uses Unit2;