6.3 Визуальное программирование в среде Lazarus

____________________________________________________________________

Ffam:= f; end;

procedure THuman.Setname(const AValue: string); begin

if Fname=AValue then exit; Fname:=AValue;

end;

procedure THuman.Setfam(const AValue: string); begin

if Ffam=AValue then exit; Ffam:=AValue;

end;

function THuman.GetData: string; begin

Result:= name + ' ' + fam + Status; end;

end.

Мы видим, что практически никакой разницы нет, за исключением того,

что реализации методов классов следует помещать в раздел implementation

модуля.

6.3.5.2. Кнопки TButton, TBitBtn и TSpeedButton

Кнопка является элементом управления, предназначенным для запуска ка-

ких-то действий или команд. Щелчок по кнопке мышью вызывает событие

OnClick в обработчике которого программист и инициирует выполнение ка-

500

Глава 6 Программирование приложений с графическим интерфейсом

____________________________________________________________________

ких-либо действий, команд и процедур. В палитре компонентов имеются две разновидности кнопок. На странице Standard имеется компонент TButton,

а на странице Additional компонент TBitBtn.

Рассмотрим свойства, присущие только кнопке. Такие его свойства, как

Name, Left, Top, Height, Width, Font, Visible и др. имеют тот же смысл,

что и для рассмотренного ранее компонента TLabel.

Caption – текст, отображаемый на кнопке.

Enabled – признак доступности кнопки. По умолчанию имеет значение

True, то есть кнопка доступна. Если False, то кнопка в данный момент не-

доступна. Надпись на кнопке имеет блеклый вид, нажатие на кнопку не приво-

дит ни к каким действиям, даже если имеется обработчик события OnClick.

Default – если установлено значение True, то нажатие клавиши Enter

будет эквивалентно щелчку по кнопке мышью.

Cancel – если установлено значение True, то нажатие клавиши Esc бу-

дет эквивалентно щелчку по кнопке мышью.

Компонент TBitBtn отличается от TButton тем, что на нем можно ото-

бражать пиктограммы. Перечисленные выше свойства для TButton имеют ме-

сто и для TBitBtn. Кроме этого, этот компонент имеет и свои особые свойст-

ва.

Kind – задает тип кнопки. Имеются несколько предопределенных типов кнопки с готовой пиктограммой и текстом:

bkAbort – с текстом "Прервать".

bkAll – с текстом "Все".

bkCancel – с текстом "Отмена".

bkClose – с текстом "Закрыть".

bkCustom – произвольный текст, устанавливается программистом.

bkHelp – с текстом "Справка".

bkIgnore – с текстом "Пропуск".

501

6.3 Визуальное программирование в среде Lazarus

____________________________________________________________________

bkNo – с текстом "Нет".

bkNoToAll – с текстом "Нет для всех".

bkOK – с текстом "ОК".

bkRetry – с текстом "Повтор".

bkYes – с текстом "Да".

bkYesToAll – с текстом "Да для Всех".

Glyph – если вас не устраивают предлагаемые рисунки, вы можете выбрать другие. Будет открыто диалоговое окно, необходимо указать путь к этому ри-

сунку.

Margin – задает расстояние от края кнопки до рисунка (в пикселах). По умолчанию -1. В этом случае рисунок и текст располагаются в центре.

Layout – определяет положение рисунка на кнопке. Можно выбрать:

blGlyphLeft – слева.

blGlyphRight – справа.

blGlyphBottom – снизу.

blGlyphTop – сверху.

Spacing – задает расстояние в пикселах между рисунком и текстом кноп-

ки.

Рассмотрим пример. Положите на пустую форму две кнопки TButton и

одну TBitBtn. Для кнопки Button1 установите свойство

Caption="Показать кнопку", для кнопки Button2 установите свойство Caption="Сделать доступной". Для кнопки BitBtn1 установите свойство

Kind= bkClose, Enabled= False, Visible= False, рис. 6.28.

502

Глава 6 Программирование приложений с графическим интерфейсом

____________________________________________________________________

Рис. 6.28. Форма приложения

В обработчик события OnClick для Button1 введите код:

procedure TForm1.Button1Click(Sender: TObject);

begin

BitBtn1.Visible:= true;

end;

В обработчик события OnClick для Button2 введите код:

procedure TForm1.Button2Click(Sender: TObject);

begin

BitBtn1.Enabled:= true;

end;

Откомпилируйте и запустите приложение. Вы видите, что кнопка

BitBtn1 сразу после запуска не видна. Нажмите на кнопку "Показать кнопку". Кнопка BitBtn1 станет видна, но будет недоступна. Теперь на-

жмите на кнопку " Сделать доступной". Кнопка BitBtn1 станет доступ-

на. Закройте с ее помощью приложение.

Кнопки TSpeedButton (она находится на странице Additional)

обычно используются в качестве быстрых кнопок в панелях инструментов. На

503