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

Информатика. Программирование в Delphi
127
Edit1.SetFocus;
end;
11. Запустим приложение (рис. 8.3).
Рис. 8.3
Окончательный вариант приложения приведен в листинге 8.1. Коммента-
рии удалены.
Листинг 8.1
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls;
type
TForm1 = class(TForm)
Label1: Tlabel;
Label2: Tlabel;
Label3: Tlabel;
Edit1: Tedit;
Edit2: Tedit;
Edit3: Tedit;
GroupBox1: TgroupBox;
RadioButton1: TradioButton;
RadioButton2: TradioButton;
Button1: Tbutton;
Label4: Tlabel;
procedure Edit1KeyPress(Sender: Tobject; var Key: Char);
procedure Edit2KeyPress(Sender: Tobject; var Key: Char);
procedure Edit3KeyPress(Sender: Tobject; var Key: Char);
procedure RadioButton1Click(Sender: Tobject);