Oto kody:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {fMain},
Unit2 in 'Unit2.pas' {fUmowy},
Unit3 in 'Unit3.pas' {fNaliczenia},
Unit4 in 'Unit4.pas' {fOdliczenia},
Unit5 in 'Unit5.pas' {fZwroty},
Unit6 in 'Unit6.pas' {fZawieszenia},
UnitDane in 'UnitDane.pas';
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfMain, fMain);
Application.CreateForm(TfUmowy, fUmowy);
Application.CreateForm(TfNaliczenia, fNaliczenia);
Application.CreateForm(TfOdliczenia, fOdliczenia);
Application.CreateForm(TfZwroty, fZwroty);
Application.CreateForm(TfZawieszenia, fZawieszenia);
Application.Run;
end.
object fMain: TfMain
Left = 1268
Top = 421
Width = 362
Height = 158
Caption = 'fMain'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
OldCreateOrder = False
WindowState = wsMaximized
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 354
Height = 29
Caption = 'ToolBar1'
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 2
Caption = 'ToolButton1'
ImageIndex = 0
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 23
Top = 2
Caption = 'ToolButton2'
ImageIndex = 1
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 46
Top = 2
Caption = 'ToolButton3'
ImageIndex = 2
OnClick = ToolButton3Click
end
end
end
- kod jednego z okien MDIchild:
object fZwroty: TfZwroty
Left = 1165
Top = 323
Width = 440
Height = 294
Caption = 'fZwroty'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
PixelsPerInch = 96
TextHeight = 13
end