 |
|
28.07.2007, 05:56
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
С нами:
9937537
Репутация:
5
|
|
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
|
|
|
28.07.2007, 06:28
|
|
Постоянный
Регистрация: 20.01.2007
Сообщений: 705
С нами:
10161726
Репутация:
1329
|
|
SNAIPER ShoT
Ты каждый свой бредовый вопрос собираешься задавать тут?))
Прочти сначала книгу из 392 поста, а потом спрашивай 
|
|
|
|
28.07.2007, 06:35
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
Сообщение от SNAIPER ShoT
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
ппц я просто в шоке...
1. Юзать MaskEdit
2. Тоже есть готовая форма... =/
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
28.07.2007, 11:36
|
|
Новичок
Регистрация: 26.06.2007
Сообщений: 7
С нами:
9934767
Репутация:
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.
|
|
|
|
28.07.2007, 14:02
|
|
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
С нами:
10073762
Репутация:
234
|
|
К чему делать пассворд диалог главной формой?
Просто в дополнению к своей программе создаешь готовую форму PasswordDlg , Появится форма с двумя кнопками "Ок" "Выход" Label и Edit. Edit будет являтся полем ввода пароля поэтому свойство PasswordChar указываешь "*", если стандартно этого не будет.
Идешь в обработчик события главной формы, и в событии OnShow указываешь:
В этом случае главная форма останется главной, но перед ее запуском всегда будет появлятся PasswordDlg.
Для самой примитивной защиты пароль лучше хранить ввиде const. В обработчике события формы запроса пароля ищешь свойство OnCloseQuery и там вводим примерно такой код:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
const p=`123456`; //Указываем наш пароль
begin
if Password.Text = p then CanClose:=true
else Application.Terminate;
end;//Если пароль совпадает с константой p - появится главная форма, если нет - приложение закончит работу
Последний раз редактировалось Fen-Omen; 28.07.2007 в 14:18..
|
|
|
|
28.07.2007, 22:38
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
С нами:
9937537
Репутация:
5
|
|
|
|
|
|
28.07.2007, 23:17
|
|
Banned
Регистрация: 30.03.2007
Сообщений: 344
С нами:
10061666
Репутация:
2438
|
|
вобщем вы наверное знаете программу Apex DC++ с открытым исходным кодом,когда там создается новая чат комнтата то почему-то коглда нажимаю+list он не выдает тех кто сидит в этой комнате а должен,как сделать так чтоб выдавал.?
|
|
|
|
28.07.2007, 23:37
|
|
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
С нами:
10073762
Репутация:
234
|
|
Он пишит что типо не понимает Const =(
Как это не понимает? Ты уверен что сделал все правильно? Ты ниразу не объявлял переменных или констант?
|
|
|
|
28.07.2007, 23:43
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
С нами:
10265091
Репутация:
541
|
|
Он пишит что типо не понимает Const =(
перед const, убери begin .
|
|
|
|
28.07.2007, 23:45
|
|
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
С нами:
10073762
Репутация:
234
|
|
Точнее поменя их местами)
Если ты хочешь объявить константу после начала процедуры, тогда о чем может быть речь?!)
Последний раз редактировалось Fen-Omen; 28.07.2007 в 23:52..
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
