AlexPS А кто мешает тебе сделать что-то типа такого:
Первый UnitКод
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
public
end;
var Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMyForm;
end;
end.
Второй UnitКод
unit Unit2;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm2 = class(TForm)
private
public
end;
var Form2: TForm2;
procedure ShowMyForm;
implementation
{$R *.dfm}
procedure ShowMyForm;
begin
Form2:=TForm2.Create(nil);
try
Form2.ShowModal;
finally Form2.Free; end;
end;
end.
Только не забудь выключить автоматическое создание для
Form2Для элементов формы аналогично ...