Ввод и проверка пароля в Delphi 7

Ввод и проверка пароля в Delphi 7

Форма ввода логина и пароля

Здравствуйте! Хочу рассказать вам, как поставить пароль на свою программу и так же обо всяких небольших мелочах. Естественно этот способ уже кто то придумывал до меня, но я попытаюсь рассказать об этом вам своими словами и более подробно.

Ввод и проверка пароля в Delphi 7

Для начала создадим две формы. ( File => New => Form)

Положим на Form1 из вкладки Standard:

  • Два Label ‘а
  • Два Edit ‘а
  • Одну Button

В обработчике события Button1 пишем:

Все, теперь при запуске программы будет выскакивать окошко просящие у нас логин и пароль, если все введено верно она откроет форму программы, если нет – форма закроется.

Мелочи для тех кто только начинает изучать Delphi 7

Чтобы зафиксировать форму нужно в её свойстве Constraints обозначить максимальную и минимальную ширину и размер формы.

Чтобы при вводе пароля он был скрытен, т.е. вводился звездочками нужно зайти в параметры Edit ‘а текст которого хотите скрыть в PasswordChar и поставить символ которым вводимый текст будет заменяться.

Чтобы поменять шрифт/размер текста нужно зайти в параметры Edit ‘а Font.

Чтобы сделать в программе красивые кнопочки как в Windows, нужно в самом коде программы, после строки {$R *.dfm} (отмечена зеленым) вставить: {$R Windows.res}

Что бы поменять прозрачность формы нужно в настройках формы: AlphaBlend сделать значение true, теперь в AlphaBlendValue поставить прозрачность например 220.

Если вы интересуетесь Delphi, советую скачать Иллюстрированный самоучитель по Delphi

ВКонтакте
OK
Telegram
WhatsApp
Viber

2 комментария

  1. Delphi User

    У меня ошибка в : procedure TForm1.Button1Click(Sender: TObject); помогите!!

    • Delphi User

      и в pass:=’12345′; // Присваиваем значение переменной pass, значение — 12345

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *