Стр. 254 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
254
16. Запустите приложение рис. 22.10.
Рис. 22.10
17. Окончательный вариант приложения приведен в листинге 22.1. Ком-
ментарии удалены.
Листинг 22.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls, Buttons, ExtCtrls, MMSystem;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
GroupBox2: TGroupBox;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label3: TLabel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Label4: TLabel;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;