Изменение свойств компонентов

Через программный код

 

В данной главе рассматривались различные свойства формы и компонентов TEdit, TLabel, TButton и TImage, а также изменение их свойств с помощью окна Инспектора объектов. Задать новые значения свойств можно также через программный код. Рассмотрим это на примере.

 

Пример. Создать проект, в котором по щелчку на кнопке в надписи должен появиться текст «Я учусь программировать в Delphi».

 

Разработаем графический интерфейс проекта. Из условия задачи следует, что на форму необходимо поместить компоненты TButton (Кнопка) и TLabel (Надпись).

 

Рис. 41 Форма с Надписью и Кнопкой.

 

У кнопки Button1 изменим заголовок на «OK», а у надписи Label1 заголовок удалим совсем. Можно также поменять параметры шрифта у кнопки и надписи.

 

Рис. 42 Графический интерфейс проекта.

 

После того, как графический интерфейс создан, можно начинать программировать. В данном проекте текст в надписи должен появиться при щелчке мышью по кнопке «ОК». Таким образом, событием здесь является щелчок мыши по кнопке. Поэтому необходимо создать обработчик события OnClick для кнопки Button1. Для этого дважды щелкнем по кнопке, при этом откроется окно программного кода с процедурой обработки события OnClick.

 

Рис. 43. Окно программного кода с обработчиком события OnClick.

 

Чтобы в надписи появился текст нужно записать команду, которая изменяет свойство Заголовок (Caption) у компонента Label1 на строку «Я учусь программировать в Delphi». Другими словами, необходимо присвоить свойству Caption новое значение в тексте программы.

Чтобы присвоить свойству новое значение в тексте программы нужно в левой части строки указать имя объекта (Label1), затем поставить разделитель – точку и далее записать название свойства (Caption). В правой части строки (после знака присваивания:=) нужно записать конкретное значение свойства:

Label1.Caption: = ‘Я учусь программировать в Delphi’;

Таким образом, текст в обработчике события будет следующим:

 

procedure TForm1.Button1Click(Sender: TObject);

Begin

Label1.Caption: = ‘Я учусь программировать в Delphi’;

end;

 

Свойство Caption – это свойство строкового типа string. Значения строкового типа заключаются в апострофы.

После запуска проекта нажмем на кнопку «ОК» и в надписи появится фраза «Я учусь программировать в Delphi».

 

Рис. 44 Работающее приложение

Задания

1. Создать проект, в котором по щелчку на кнопке в текстовом поле должно появиться слово «Привет».
2. Добавить в предыдущий проект кнопку «Очистить», по щелчку на которой содержимое текстового поля должно удаляться.

 

Рис. 45 Графический интерфейс проекта

 

1. Создать проект, в котором требуется ввести имя в текстовое поле. При нажатии на кнопку в надписи должна появиться фраза «Привет, имя. Как дела?».

 

а) б)

Рис. 46 а) Графический интерфейс проекта

б) Работающее приложение

 

1. Создать проект, в котором в текстовые поля требуется ввести фамилию, имя и отчество. По щелчку на кнопке полное ФИО должно появиться в надписи.

 

а) б)

Рис. 47 а) Графический интерфейс проекта

б) Работающее приложение

 

1. Создать графический интерфейс проекта по образцу (рис. 48). При нажатии на каждую из кнопок в текстовом поле должно появляться соответствующее слово, причем уже имеющиеся слова удаляться не должны. Соберите из этих слов известную пословицу. По щелчку на кнопке «Очистить» текстовое поле очищается.

 

Рис. 48 Графический интерфейс проекта