unit Unit3
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAuthor = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Comments: TLabel;
OKButton: TButton;
procedure OKButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Author: TAuthor;
implementation
{$R *.dfm}
procedure TAuthor.OKButtonClick(Sender: TObject);
begin
close;
end;
end.
unit Unit4
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
OKButton: TButton;
Label1: TLabel;
Memo1: TMemo;
procedure OKButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
close;
end;
end.
unit Unit5
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls;
type
TGET = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
Image2: TImage;
Label1: TLabel;
Label2: TLabel;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
GET: TGET;
implementation
{$R *.dfm}
procedure TGET.SpeedButton1Click(Sender: TObject);
begin
close;
end;
end.
Достарыңызбен бөлісу: |