Как открыть доступ к кнопке по паролю (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=“Пароль неверный”.

Советы и предупреждения:

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

Обсуждение

Ваш комментарий

Запросить инструкцию

Не нашли нужную пошаговую инструкцию?
Возможно, что кто-то из посетителей сайта сможет помочь. Оставьте запрос прямо сейчас, если Вы уверены, что эта тема ещё не освещена на нашем проекте!

Рейтинг
  1. +
  2. 0
0
1