Як відкрити доступ до кнопки за паролем (delphi 7)?

Як відкрити доступ до кнопки за паролем (Delphi 7)?
Приклад форми входу в програму після введення пароля

Бувають випадки, коли доступ до будь-якого об'єкта (наприклад, до кнопки) у Вашій програмі потрібно відкрити тільки після введення пароля. Наприклад, Ви продаєте ключ для доступу до всіх можливостей Вашої програми. Покупець бере ключ, і вводить його в "edit1". Відразу після введення правильного пароля, текст в "label1" змінюється на "пароль вірний", а значення "enabled" в "button1" стає "true".

Інструкція

Рівень складності: Легко

1 крок

Як відкрити доступ до кнопки за паролем (Delphi 7)?
Після виконання кроку №1

Для цього нам знадобиться три компоненти: label, button і edit (всі три знаходяться на вкладці standard). Можна обійтися і без "Label", але тоді користувач зможе дізнатися, чи правильний пароль тільки по кликабельности (enabled) кнопки.

2 крок




Заходимо у властивості 'button'a, знаходимо властивість Enabled і ставимо його на false. Якщо Ви вставили компонент "Label", заходимо в обробник події 'edit'a - onchange, туди вписуємо наступний код:
if Edit1.Text = '12345' then
begin
Button1.Enabled: = true-
Label1.Caption: = 'Пароль верний'-
end
else
Button1.Enabled: = false-
Label1.Caption: = 'Пароль неверний'-
Якщо ж Ви вирішили обійтися без label'а, заходимо туди ж і вставляємо код:
if Edit1.Text = '12345' then
begin
Button1.Enabled: = true-
end
else
Button1.Enabled: = false-
При цьому, замість "12345" вставляємо свій код. Button1 можна поміняти на будь-який інший компонент, який буде доступний після правильного введення пароля.

3 крок

Як відкрити доступ до кнопки за паролем (Delphi 7)?
Програма на виході

Компілюємо і запускаємо програму. Пишемо в Edit "12345" (або Ваш пароль, якщо Ви його міняли у 2м кроці) - кнопка стає функціональною, label змінюється на "пароль вірний". Міняємо хоч один символ - кнопка не функціонує, label1.text = "Пароль невірний".

Поради та попередження:

  • Пароль при введенні чутливий до регістру!






» » Як відкрити доступ до кнопки за паролем (delphi 7)?