Форма ввода логина и пароля
Здравствуйте! Хочу рассказать вам, как поставить пароль на свою программу и так же обо всяких небольших мелочах. Естественно этот способ уже кто то придумывал до меня, но я попытаюсь рассказать об этом вам своими словами и более подробно.
Ввод и проверка пароля в Delphi 7
Для начала создадим две формы. ( File => New => Form)
Положим на Form1 из вкладки Standard:
- Два Label ‘а
- Два Edit ‘а
- Одну Button
В обработчике события Button1 пишем:
1 2 3 4 5 6 7 8 |
procedure TForm1.Button1Click(Sender: TObject); var login, pass: string; // Пишем название переменных begin // Начало программы login:='spy-soft.net'; // Присваиваем значение переменной login, значение -spy-soft.net pass:='12345'; // Присваиваем значение переменной pass, значение - 12345 if (Edit1.Text=login) and (Edit2.Text=pass) then Form2.Show else Form1.Close // Если(Edit1.Text=переменной login) и (Edit2.Text=переменной pass) значит Форму2.Показать иначе Форму1.Закрыть end; // Конец |
Все, теперь при запуске программы будет выскакивать окошко просящие у нас логин и пароль, если все введено верно она откроет форму программы, если нет – форма закроется.
Мелочи для тех кто только начинает изучать Delphi 7
Чтобы зафиксировать форму нужно в её свойстве Constraints обозначить максимальную и минимальную ширину и размер формы.
Чтобы при вводе пароля он был скрытен, т.е. вводился звездочками нужно зайти в параметры Edit ‘а текст которого хотите скрыть в PasswordChar и поставить символ которым вводимый текст будет заменяться.
Чтобы поменять шрифт/размер текста нужно зайти в параметры Edit ‘а Font.
Чтобы сделать в программе красивые кнопочки как в Windows, нужно в самом коде программы, после строки {$R *.dfm} (отмечена зеленым) вставить: {$R Windows.res}
Что бы поменять прозрачность формы нужно в настройках формы: AlphaBlend сделать значение true, теперь в AlphaBlendValue поставить прозрачность например 220.
Если вы интересуетесь Delphi, советую скачать Иллюстрированный самоучитель по Delphi
У меня ошибка в : procedure TForm1.Button1Click(Sender: TObject); помогите!!
и в pass:=’12345′; // Присваиваем значение переменной pass, значение — 12345