Как видно из примера, программист может поместить любой код до обращения к методу Application.Run. В частности, он может показать диалоговое окно с запросом пароля и блокировать вызов Application.Run, если введенный пользователем пароль неверен. В следующем примере (листинг 4 — Password.dpr) в проекте используются две формы: стандартная форма InputQuery и главная форма MainForm. Форма InputQuery создается при обращении к одноименной функции, определенной в модуле Dialogs. Она представляет собой небольшое диалоговое окно с однострочным редактором TEdit и двумя кнопками — ОК и Cancel. В окне пользователь должен ввести пароль (Delphi) и нажать Enter.

program Password;   
    
uses   
  Forms,   
  Dialogs,  // В этом модуле определена функция InputQuery    
  Unit1 in 'Unit1.pas' {MainForm};   
    
{$R *.RES}   
var   
  Passwrd: String;   
begin   
  // Запрашиваем пароль:   
  if InputQuery('Окно ввода пароля','Введите пароль:',Passwrd)    then   
  // Проверяем его:   
  if Passwrd = 'Delphi' then   
  begin  // Все в порядке, пароль верен   
    Application.CreateForm(TMainForm, MainForm);   
    Application.Run;   
  end else   
    ShowMessage('Пароль не верен!');   
end.

Добавлено: 08 Апреля 2018 06:42:18 Добавил: Андрей Ковальчук Нравится 0

Добавить