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