Case 3 multi form or more.
At the head of Form1:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, ..., unit2, unit3;
type
{ TForm1 }
TForm1 = class(TForm)
.
.
.
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
Form2 modify:
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm2 }
TForm2 = class(TForm)
.
.
.
TCloseAction);
private
{ private declarations }
public
{ public declarations }
end;
var
Form2: TForm2;
implementation
uses
unit1,Unit3;
{$R *.lfm}
{ TForm2 }
Form3 modify:
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm3 }
TForm3 = class(TForm)
.
.
.
private
{ private declarations }
public
{ public declarations }
end;
var
Form3: TForm3;
implementation
uses
unit1, unit2;
{$R *.lfm}
{ TForm3 }