Уроки по Delphi


         

Рассмотрим один очень полезный пример.


Рассмотрим один очень полезный пример. Нам надо еще до запуска программы предложить пользователю ввести некий пароль. Если пароль введен верно, то отображается главное окно проекта и пользователь может работать. Если пароль введен неверно, то программа немедленно завершает свою работу.
Запускаем delphi и создаем новый проект. В новом проекте окно Form1 будет главным окном проекта.
Для события создания окна OnCreate пишем:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false; //не отображать главное окно приложения
end;
Выбираем пункт меню "New Form" из меню "File". Появляется новое окно Form2. Его мы будем использовать в качестве ввода пароля. Оформляем его для этого надлежащим образом. Пример вы видите на рисунке.

  • Уменьшаем окно так, чтобы оно по размерам было как у подобных окон.

  • Свойство BorderStyle устанавливаем в bsSingle. При этом размер окна во время работы программы будет постоянен.

  • Свойство BorderIcons. Подсвойства biMinimize и biMaximize устанавливаем в false. Это окончательно недопустит изменение состояния окна (свертывание, разворачивание на весь экран).

  • В свойстве Caption пишите любую на ваше усмотрения понятную фразу, например "Введите пароль".

  • Свойство Position в значение poDesktopCenter. При этом окно при любом экранном разрешение всегда изначально будет расположено посередине экрана.

  • На странице палитры компонентов Standart выбираем и устанавливаем в форму компонент TPanel. Убираем у него значение Caption, придаем свойству Align значение alTop и окончательно изменяем его размер на четь больше половины окна.

  • На странице Additional выбираем компонент TBitBtn и устанавливаем в форму две кнопки, ниже панели.

  • Для первой кнопки свойство Kind в bkOk, для второй bkCancel.

  • Для первой кнопки свойство Caption оставляем в для всех понятное значение Ok, для второй пишем "Отмена".

  • На странице Standart выбираем и устанавливаем на компонент Panel компонент TEdit.

  • Для компонента Edit1 меняем свойство PasswordChar на знак * (звездочка). Это принятый во всех программах символ ввода пароля. При наборе пароля вместо символов будет отображаться звездочки.


  • Содержание  Назад  Вперед