Группа переключателей:
Figure: TRadioGroup
Caption = ‘Фигура’
Items = ('Прямоугольник', 'Треугольник', 'Круг')
Метки:
Label1: TLabel
Caption = 'Параметры фигуры'
Label2: TLabel
Caption = 'a'
Label3: TLabel
Caption = 'b'
…
Поля ввода:
ra: TEdit
rb: TEdit
ta: TEdit
tb: TEdit
tc: TEdit
cr: TEdit
Кнопки:
Button1: TButton
Caption = ‘Рассчитать площадь’
OnClick = Button1Click
Button2: TButton
Caption = ‘Выход’
OnClick = Button2Click
Изображение:
Image: TImage
Transparent = True