Объект tButton (кнопка)
Объект
Button
используют для создания кнопок на форме.
Кнопка помещается на форму с помощью
кнопки
на стандартной панели инструментов.
Кроме аналогичных приведенных ранее
свойств
Visible,
With,
Height,
Font,
Color,
Name,
Caption,
Cursor,
Enabled,
Left,
Top,
кнопки
имеют свойства указанные в табл. 13.3.
Таблица 13.3. Свойства объекта TButton
|
Свойство |
Описание свойства |
Примеры значений |
|
Cancel |
Установка в true определяет, что нажатие пользователем клавиши Esc эквивалентно нажатию кнопки Button. Имеет смысл задавать кнопкам Отменить в различных диалоговых окнах, чтобы можно было выйти из диалога, нажав эту кнопку или клавишу Esc |
True, false |
|
Default |
Установка в true определяет, что нажатие пользователем клавиши Enter эквивалентно нажатию кнопки Button даже если она в этот момент не находится в фокусе. Однако, если в момент нажатия Enter в фокусе находится другая кнопка, то сработает кнопка в фокусе |
True, false |
Для программирования кнопки Button1 необходимо дважды нажать на нее левой клавишей мыши. В результате активизируется окно текста программы с заготовкой процедуры Button1Click, которая будет обрабатывать событие нажатия на кнопке Button1:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
В заготовку необходимо вставить текст программы, содержащий реакцию на это событие. Если текст оставить без изменений, то при первой же компиляции происходит автоматическое удаление заготовки.
Преобразование типов
Так как многие стандартные визуальные компоненты (TLabel, TEdit и другие) вводят/выводят информацию только в виде текста, необходимо работать с функциями преобразования типов. Некоторые из них представлены в табл. 13.4.
Таблица 13.4. Подпрограммы преобразования типов
|
Процедура/функция |
Назначение |
|
IntToStr(Value: Integer): string; |
Преобразование целочисленных значений в строку |
|
CurrToStr(Value: Currency): string; |
Преобразование значения Currency в строку |
|
FloatToStr(Value: Extended): string; |
Преобразование значения с плавающей точкой в строку |
|
Str(X [: Width [: Decimals ]]; var S); |
Преобразование числового значения в строку |
|
StrToBool(const S: string): Boolean; |
Преобразование строки в булевое значение |
|
StrToCurr(const S: string): Currency; |
Преобразование строки в значение Currency |
|
StrToFloat(const S: string): Extended; |
Преобразование строки в значение с плавающей точкой |
|
StrToInt(const S: string): Integer; |
Преобразование строки в целое значение |
|
BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; |
Преобразование булевого значения в строку. UseBoolStrs определяет содержимое строки-результата, если UseBoolStrs=true, то в строку помещается значение B в виде строки «true» или «false», в противном случае в строку выводится -1, если В = true и 0, если B = false |
|
Val(S; var V; var Code: Integer); |
Преобразование строки в числовое значение |