Уроки по Delphi



         

Пример - часть 2


  • Для компонента Edit1 убираем значение Caption.
  • Для Form2 в свойстве Icon подбираете соответствующую иконку.
  • Мы только что оформили полностью готовое окно для ввода пароля. Я же могу предложить вашему внимание свой вариант, который более красочно оформлен.

    3.gif (2988 bytes)
    Вы всегда можете оформлять свои приложения по своему. Не обязательно придерживаться каких-либо правил по оформлению программы, но тем не менее пользователь не должен теряться при виде ваших "фантазий" и должен четко представлять, что от него требуется.

    Дальше делаем вызов окна ввода пароля на экран. Поскольку мы с вами убрали свойство вывода главного окна, то после запуска программы на экране не будет ничего. Нам же нужно вывести окно запроса пароля, и мы это делаем с помощью программы DPR. Вызываем ее на экран с помощью пункта меню "View Source" из меню

    "Project". В строке до

    Application.Run пишем:

    Form2.Show;

    Еще до запуска приложения, но после создания всех окон на экран выводится окно Form2.

    Дальше переключаем редактор кода на модуль Unit2, вызываем проектируемое окно клавишей F12, в инспекторе объектов для компонента Form2 (проектируемая форма) создаем реакцию на событие закрытия окна OnClose и в самой процедуре пишем:

    Procedure TForm2.FormClose (Sender: TObject; var Action: TCloseAction);

    begin

    If Form2.ModalResult=mrOk then //если пользователь нажал на кнопку Ok, то

    If Edit1.Text='programming.dax.ru' then //если набран необходимый пароль, то

          begin

          Form1.Show; //показать главное окно

          Exit; //выйти из этой процедуры

          end;

    Application.Terminate; {если все вышеуказанные условия не выполняются, то остановить программу}

    end;

    Для кнопки BitBtn1 реакция на событие OnClick

    procedure TForm2.BitBtn1Click(Sender: TObject);

    Begin

    Form2.ModalResult:=mrOk; //результат работы этого окна

    Close; //закрыть это окно

    end;

    Для кнопки BitBtn2 событие OnClick

    procedure TForm2.BitBtn2Click(Sender: TObject);

    begin

    Close; //закрыть это окно

    end;

    Поскольку мы окно Form2 вызываем командой Show, а не ShowModal, то присваивание результата работы окна не приведет к автоматическому закрытию и вызову процедуры OnClose. Поэтому после этой команды следует команда закрытия окна Close.




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