If not(Key in ['0'..'9',#8]) then

key: =#0;

end;

 

end.

 

В данном приложении обрабатывается событие OnKeyPress для компонента Edt1, предназначенного для ввода оценки по 10-балльной системе. Пользователь может вводить только цифры от 0 до 9 и пользоваться клавишей Backspace.

Рассмотрим более сложный пример.

Пример 4. Даны сторона квадрата и стороны треугольника. Определите пройдет ли данный треугольник в квадрат.

Разработаем только полноэкранное приложение.

Форма приложения имеет вид (рис. 1.10).

 

Рис.1.10 Форма примера 4

 

Соответствующий Unit:

 

unit Unit1;

//Пройдет ли треугольник в квадрат?

Interface

 

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;

 

Type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

GroupBox1: TGroupBox;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Image1: TImage;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

Private

{ Private declarations }

Public

{ Public declarations }

end;

 

Var

Form1: TForm1;

ak, a, b, c: real;

Implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

Var

x, y, k, y1, ap, bp, cp, d: real;

iw, ih: integer;

fl: boolean;

p: array [0..2] of tpoint; //координаты вершин треугольника

Begin

ak: =strtofloat(edit1.Text); //сторона квадрата

a: =strtofloat(edit2.Text); //стороны треугольника

b: =strtofloat(edit3.Text);

c: =strtofloat(edit4.Text);

image1.Picture: =nil; //очистка image

// Располагаем стороны треугольника в порядке

//возрастания

If a> b then

Begin

x: =a; a: =b; b: =x;

end;