Основное свойство командной кнопки button
Свойство |
Описание |
Name |
Имя компонента. Используется в программе для доступа к компоненту и его свойствам |
Caption |
Текст на кнопке |
Enabled |
Признак доступности кнопки. Кнопка доступна, если значение свойства равно True, и не доступна, если значение свойства равно False |
Left |
Расстояние от левой границы кнопки до левой границы формы |
Top |
Расстояние от верхней границы кнопки до верхней границы формы |
Height |
Высота кнопки |
Width |
Ширина кнопки |
Таблица 8
Разновидности свойства kind командной кнопки bitbtn
Значение |
Действие |
bkCustom |
Реакция кнопки определена программистом |
bkOk |
Закрытие формы стандартным действием. |
bkCancel |
Закрытие формы с отказом от изменений. В свойство ModalResult записывается значение mrCancel |
bkYes |
Подтверждение изменений. В свойство ModalResult записывается значение mrYes |
bkNo |
Отказ от изменений. В свойство ModalResult записывается значение mrNo |
bkHelp |
Вызов раздела справочной системы в соответствии со значением, записанным в свойство HelpContext |
bkClose |
Закрытие формы |
bkAbort |
Прерывание. Форма не закрывается |
Таблица 9
Основные свойства компонента panel
Свойство |
Описание |
Align |
Указывает способ выравнивания компонента (alBottom –внизу; alTop – вверху; alLeft – слева и т.д.) |
Alignment |
Определяет выравнивание текста относительно границ компонента |
BevelInner |
Определяет вид внутренней кромки (bvNone – нет кромки; bvLowered –вдавленная кромка; bvRaised –приподнятая кромка) |
BevelOuter |
Определяет вид внешней кромки |
BevelWidth |
Определяет толщину кромок |
BorderStyle |
Определяет стиль рамки (bsNone – нет рамки; bsSingle –линия рамки толщиной 1 пиксель) |
Таблица 10
Основные свойства компонента maskedit
Свойство |
Описание |
EditMask |
Задает шаблон для ввода строки |
IsMasked |
Доступно только для чтения, имеет значение True, если строка шаблона задана |
EditText |
Содержит текст до наложения на него маски шаблона |
Text |
Содержит либо исходный текст, либо результат наложения на него маски шаблона |
Пример создания приложения для суммирования двух чисел
1 Этап Создание формы
Свойства компонентов
Название компонента |
Свойство Caption |
Свойство KIND (только для BitBtn) |
Свойство Lines (только для Memo1) |
Свойство EditMask (только для EditMask) |
FORM |
Caption ='Усовершенствованный пример вычисления суммы |
|||
Label1 |
Введите исходные данные – число1 и число2 |
|
|
|
Label2 |
число1 |
|
|
|
Label3 |
число2 |
|
|
|
PANEL1 |
|
|
Св-во Align = alBottom |
|
BUTTON1 |
Решение |
|
|
|
BUTTON2 |
Очистить |
|
|
|
MEMO1 |
|
|
Удалить в окне слово ‘Memo1’ |
|
BITBTN1 |
|
bkClose |
|
|
MASKEDIT1 |
|
|
|
#99999999;1; |
MASKEDIT2 |
|
|
|
#99999999;1; |
Этап 2. Создание обработчиков событий. Текст кода программы
{ Процедура формирования суммы двух чисел }
procedure TForm1.Button1Click(Sender: TObject);
var ch1 : integer ; // число 1
ch2 : integer ; // число 2
sum : integer ; //сумма двух чисел
begin
ch1 := StrToInt (Trim(MaskEdit1.Text)); ch2 := StrToInt (Trim(MaskEdit2.Text));
sum := ch1 + ch2;
Memo1.Lines.Add ('Результат'); Memo1.Lines.Add ('Сумма двух чисел равна');
Memo1.Lines.Add ( 'sum = ' + IntToStr(sum) )
end;
{ Процедура очистки полей ввода исходных данных и результата решения }
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear; MaskEdit1.Clear; MaskEdit2.Clear; MaskEdit1.SetFocus;
end;
Раздаточный материал по «Информатике». Подготовлен ст.пр.Шаталова Л.М.