Как подключить модули к динамически созданной форме?

[MyIE]

Ну просто на данном этапе, если я подключаю необходимые мне модули в главную форнму, после создаю днамическую, то собственно ей на модули главной формы по барабану.

psycho-coder, т.е. как мой код должен выглядеть?

...

uses ..., pngimage, jpeg;

...

type
  TFormMain = class(TForm)
    MM1: TMainMenu;
...
  private
    Thread1: CheckNewVersion;
    { Private declarations }
    procedure SaveProgPosition;
    procedure LoadProgPosition;
  public
    { Public declarations }
  end;
  TMyForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

...

Так тоже не работает.
P.S. DimanicForms - это массив.

DinamicForms: array [1 .. 10] of TMyForm;

[psycho-coder]

Нужно посмотреть, но щас не могу. Только вечером дома.

[Stilet]

Ну просто на данном этапе, если я подключаю необходимые мне модули в главную форнму, после создаю днамическую, то собственно ей на модули главной формы по барабану.

Правильно. У каждой формы есть свой Юнит, где она описана. Каждая форма, неважно как она созданна имеет функционал описанный в модуле, где определен класс этой формы, а соответственно и подключаемые модули.

В твоем случае нужно смотреть модуль где определен TMyForm и в нем настраивать что нужно.

[Gambler]

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

[MyIE]

Stilet, TMyForm нигде не записан, я его сам создаю, см. первый пост.
У меня вообще была мысль изменить стандартный шаблон подставляемый (временно), но не могу его найти, кучу других шаблонов нашел, а form не могу

[Stilet]

TMyForm нигде не записан

Ну да? А выше приведенный код это что "Нигде не описан"?

В общем мой тебе совет - взять книгу по Делфи, где описаны модули и формы и прочитать о том как PAS связан с DFM, как описыываются классы форм, и что они из себя представляют.

[MyIE]

Stilet, спасибо нет времени. Можешь просто привести пример кода или дать линк на такой пример? Как подключить в таком случае модули.

[Stilet]

Нет не могу, поскольку не понимаю что тебе нужно.
Еще раз настаиваю на прочтении книги и особое уделение внимания про секцию uses

[Roof]

2 MyIE - модуль подключить нельзя к форме. Модуль можно подключить к модулю с описанием класса. Ты не можешь создать в программе форму из ничего. Ты же описываешь класс формы своей где-то. Вот в том модуле, где описан класс формы и подключай нужные модули в разделе uses.

[evg_m]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
//  jpeg, //pngimage,
  Dialogs, ExtCtrls, ExtDlgs, StdCtrls;

type
  TForm1 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TTestform =class(Tform)
  private
    Fimg: TImage;
    procedure Setfp(const Value: TfileName);
  public
    procedure afterconstruction; override;
    property fp: TfileName read Ffp write Setfp;
  end;

var
  Form1: TForm1;
  m: array[0..1] of TTestform;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  m[0]:=TTestform.CreateNew(nil);
  if self.OpenPictureDialog1.Execute then
    m[0].fp:=self.OpenPictureDialog1.FileName;
  m[0].Show;

  m[1]:=TTestform.CreateNew(nil);
  if self.OpenDialog1.Execute then
    m[1].fp:=self.OpenDialog1.FileName;
  m[1].Show;
end;

{ TTestform }

procedure TTestform.afterconstruction;
begin
  inherited Afterconstruction;;
  self.Fimg:=TImage.Create(self);
  self.Fimg.Parent:=self;
  self.Fimg.Align:=alclient;
end;

procedure TTestform.Setfp(const Value: TfileName);
begin
  self.Fimg.Picture.LoadFromFile(value);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if sender =self.Button1 then
    m[0].BringToFront
  else if sender= self.Button2 then
    m[1].BringToFront
  else
  ;
end;

end.

Причам где (в каком модуле) подключать jpeg без особой разницы

unit Unit2;

interface

uses
  jpeg;

implementation

end.

чего впрочем и следовало ожидать.