28.07.2007, 11:36
|
|
Новичок
Регистрация: 26.06.2007
Сообщений: 7
Провел на форуме:
16098
Репутация:
15
|
|
Сообщение от SNAIPER ShoT
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
Сначала добавь к проекту PasswordDlg из File->New->Other->Dialogs;
Потом сделай PasswordDlg главной формой в проекте и перенеси Form1 в список доступных форм. В PasswordDlg вставь
Код:
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
if Password.Text='Pass' then
begin
Application.CreateForm(Tform1,Form1);
Form1.Show;
PasswordDlg.Hide;
end else ShowMessage('Incorrect password.');
end;
Теперь Form1 будет запускаться ток апри введении пароля Pass.
|
|
|