De volgende twee units zijn gekoppeld aan form2 en form3. Op blad 6 is er de mogelijkheid
om het complete programma te downloaden zodat je kunt zien hoe de forms eruit zien.

unit damunit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Grids;

type
TForm2 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
    form2.close;
end;

{ Voordat de form geprint wordt, wordt de achtergrondkleur naar wit gezet,
de knoppen onzichtbaar gemaakt. Na het printen terug naar oorspronkelijk. }

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
    form2.color:=clwhite;
    bitbtn1.Hide;
    bitbtn2.Hide;
    form2.print;
    bitbtn1.show;
    bitbtn2.show;
    form2.color:=clsilver;
end;

end.

unit damunit3;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
ListBox4: TListBox;
ListBox5: TListBox;
ListBox6: TListBox;
ListBox7: TListBox;
ListBox8: TListBox;
ListBox9: TListBox;
ListBox10: TListBox;
Label10: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
    form3.close;
end;


{ Net als in form2 wordt hier ook de achtergrond naar wit gezet en de knoppen
verborgen voor het printen }

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
    form3.color:=clwhite;
    bitbtn1.Hide;
    bitbtn2.Hide;
    form3.print;
    bitbtn1.show;
    bitbtn2.show;
    form3.color:=clsilver;
end;

end.