Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

procedure TForm3.Button2Click(Sender: TObject); begin

Form3.visible:=false;

Form2.visible:=true; end;

procedure TForm3.Button3Click(Sender: TObject); begin

Close;

Form2.Close;

Form1.Close; end;

end.

unit Unit6; //AboutBox

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

Image1: TImage;

BitBtn1: TBitBtn; private

{ Private declarations } public

{ Public declarations } end;

var

AboutBox: TAboutBox;

Рекомендуем скачать другие рефераты по теме: баллов рефераты, 7 ответов.



Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки