Реферат: Разработка тестового приложения Компоненты меню Delphi

10. Эбнер Михаэль. Delphi 5. Руководство разработчика. - Киев, 2000.

Приложение 1. Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Gauges, Menus, jpeg;

type

TForm1 = class(TForm)

Panel1: TPanel;

Button1: TButton;

Image1: TImage;

Label5: TLabel;

Label1: TLabel;

Gauge1: TGauge;

MainMenu1: TMainMenu;

File1: TMenuItem;

Save1: TMenuItem;

exit1: TMenuItem;

Help2: TMenuItem;

About1: TMenuItem;

Contents1: TMenuItem;

SaveDialog1: TSaveDialog;

Memo1: TMemo;

N1: TMenuItem;

Timer1: TTimer;

Label2: TLabel;

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);