Курсовая работа: Объектно-ориентированная разработка программ

var

Form1: TForm1;

implementation

uses Tugol, parray, colorshape;

{ TForm1 }

procedure TForm1.Button1Click(Sender: Tobject);

begin

Form1.Hide; // закрыть объект 1

Form2.ShowModal; // открыть объект 2

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Hide;

Form3.ShowModal; // открыть объект 3

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Hide;

Form4.ShowModal; // открыть объект 4

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form1.Close; // закрыть объект 1

end;

initialization

{$I tmain.lrs}

end.

unit Tugol;

{$mode objfpc}{$H+}