Уроки по Delphi



         

Пример


Рассмотрим один очень полезный пример. Нам надо еще до запуска программы предложить пользователю ввести некий пароль. Если пароль введен верно, то отображается главное окно проекта и пользователь может работать. Если пароль введен неверно, то программа немедленно завершает свою работу.

Запускаем delphi и создаем новый проект. В новом проекте окно Form1 будет главным окном проекта.

Для события создания окна OnCreate пишем:

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.ShowMainForm:=false; //не отображать главное окно приложения

end;

Выбираем пункт меню "New Form" из меню "File". Появляется новое окно Form2. Его мы будем использовать в качестве ввода пароля. Оформляем его для этого надлежащим образом. Пример вы видите на рисунке.

2.gif (2031 bytes)

  • Уменьшаем окно так, чтобы оно по размерам было как у подобных окон.
  • Свойство 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 на знак * (звездочка). Это принятый во всех программах символ ввода пароля. При наборе пароля вместо символов будет отображаться звездочки.



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