Подскажите пожалуйста как объединить в проект несколько модулей .pas с одной формой.
Не удобно работать с одним модулем получается длинным и не читабельным.
Мануала толково описывающий не нашел
пример:
Unit1
- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='Test_1';
end;
end.
Unit2
- Код: Выделить всё
unit Unit2;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:='Test_2';
end;
end.
Подскажите, что не так и что надо сделать чтоб можно было добавлять Unit3, Unit4, ...
