Кнопка (TButton) в Delphi
Є ще один спосіб встановити кнопку на формі. Для цього двічі клацніть по зображенню кнопки на палітрі компонентів. Але в цьому випадку кнопка виявиться в
центрі форми, а не там, де ми хочемо.
Виділіть кнопку і перейдіть в об'єктний інспектор. У ньому (рис. 7.2) показані властивості кнопки. Як бачите, більшість властивостей нам вже знайоме за властивостями форми, тому не будемо їх розглядати. Є тільки одне цікаве властивість-ModalResult. але з ним ми познако- мімся пізніше.
Давайте змінимо заголовок кнопки. За заголовок форми відповідає властивість caption. Тут те ж саме. Знайдіть властивість caption і змініть міститься в ньому текст на "Натисни мене".
Відразу змінилися і ВЛАСТИВІСТЬ Name у кнопки. Раніше йшлося про те, що будь-яких компонентів і формам краще давати зрозумілі імена. Тому давайте з самого початку будемо звикати до нормального стилю програмування. Знайдіть властивість
Name і змініть його на MyFirstButton. Нехай ім'я кнопки поки не відображає ніякого сенсу, адже вона ще нічого не робить.
Тепер змінимо ім'я форми. Для цього зніміть виділення з кнопки (клацніть в будь-якому місці форми). Вгорі вікна об'єктного інспектора повинна заго реться напис Forml TFormi. як це показано на рис. 7.3. Потрібний для редагування компонент можна вибрати і в цьому списку.
Тепер ти тут властивість Name (воно має дорівнювати Forml) і змініть його значення на MainForm (це перекладається як головна форма).
Спробуйте запустити програму (натисніть клавішу
Procedure TFormi.MyFirstButt # 111; nclick (Sender: TObject);
В об'єктному інспектора навпроти рядка # 111; nclick також має з'явитися ім'я процедури обробника. Ви можете змінити його, просто надрукувавши нове ім'я або вибравши вже існуючий обробник з спадаючого списку в цьому ж рядку. У нашому випадку спадаючий список порожній, тому що ми більше не робили подібних обробників подій, і воно у нас поки єдине.
Давайте напишемо всередині процедури (між операторними дужками begin та end) команду close. Це метод форми, який закриває процедуру. Тепер наша процедура повинна виглядати як:
Procedure TFormi.MyFirstButt # 111; nclick (Sender: TObject);