Реферат Проектування структури і компонентів програмного продукту

/p>

end; TForm1.FormCreate (Sender: TObject);

var: DWORD;// Процедура блокування кнопки Розгорнути

begin:=GetWindowLong (Self.Handle, GWL_STYLE);:=l and not (WS_MAXIMIZEBOX);:=SetWindowLong (Self.Handle, GWL_STYLE, l) ;; TForm1.N4Click (Sender: TObject );

begin;// Вихід з програми;

end.

Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, jpeg, ExtCtrls;=class (TForm): TImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel; Image1Click (Sender: TObject); Label1Click (Sender: TObject); Label2Click (Sender: TObject); Label3Click (Sender: TObject); Label4Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm2;

{$ R * .dfm} TForm2.Image1Click (Sender: TObject);

begin;// Закриття вікна при натисканні на нього

end; TForm2.Label1Click (Sender: TObject) ;;; TForm2.Label2Click (Sender: TObject) ;;; TForm2.Label3Click (Sender: TObject) ;;; TForm2.Label4Click (Sender: TObject ) ;;;

Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

TForm3=class (TForm): TImage ;: TLabel ;: TLabel ;: TLabel; FormShow (Sender: TObject); Image1Click (Sender: TObject); Label1Click (Sender: TObject); Label2Click (Sender:TObject); Label3Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm3; Unit1;

{$ R * .dfm} TForm3.FormShow (Sender: TObject) ;. Timer1.Enabled:=False;// Вимикаємо таймер; TForm3.Image1Click (Sender: TObject);

begin;// Закриття вікна при натисканні на нього

end; TForm3.Label1Click (Sender: TObject) ;;; TForm3.Label2Click (Sender: TObject) ;;; TForm3.Label3Click (Sender: TObject) ;;;

Додаток 2

Блок схема