Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Внизpassword Найти похожие ветки
← →
shok (2003-01-15 09:34) [0]Люди помогите. Есть форма её нужно показать после правильного ввода пароля.
← →
neXt (2003-01-15 09:38) [1]
Если Правильно(Пароль) То
Форма.Показать();
← →
shok (2003-01-15 09:49) [2]Можно пожалуйста весь код...
← →
Calm (2003-01-15 10:06) [3]
var
PasswordForm:TPasswordForm;
MainForm:TMainForm;
begin
PasswordForm:=TPasswordForm.Create(application);
if PasswordForm.ShowModal=mrOk
then begin
MainForm:=TMainForm.Create(Application);
MainForm.Show;
end;
PasswordForm.Free;
end;
← →
shok (2003-01-15 10:11) [4]Не хочу быть навящивым но можно подробно и кде тут сам пароль?
← →
Delirium^.Tremens (2003-01-15 10:14) [5]У тебя батонов на клаве не хватает? Или ты действительно так пишешь?
← →
neXt (2003-01-15 10:17) [6]В TPasswordForm на OnOk что-нибудь вроде
cPwd := "мой секретный пароль:) весь из себя инкриптед";
...
begin
ModalResult := mrNone;
if medtPwd.Text = cPwd then
ModalResult := mrOk;
end;
← →
shok (2003-01-15 10:54) [7]Люди НЕ ФИГА НЕ РАБОТАЕТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
← →
Reindeer Moss Eater (2003-01-15 10:57) [8]Люди НЕ ФИГА НЕ РАБОТАЕТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Может у неё(у того, кто не работает нифига) день нерабочий? :)
← →
Skier (2003-01-15 10:58) [9]>shok
Сделай форму для ввода пароля - главной формой приложения...
так проще всего... :)
Ну а вообще форму для ввода пароля нужно использовать в *.dpr - файле
← →
shok (2003-01-15 11:12) [10]Мне код нужен на все это (этот не работает) и подробное описание
ПОМОГИТЕ!
← →
shok (2003-01-15 11:24) [11]Мне нужен код и подробное описание на все ПОМОГИТЕ!!!!!
← →
Calm (2003-01-15 11:26) [12]2 shok
Есть такое понятие как "мышление специалиста терминами предметной области".
Т.е. если электронщик говорит "оптронная развязка", то обычный человек (не электротехник) в уме это переводит в известные ему понятия (ага, это такое устройство, которое делает то-то и то-то). Но для электронщика это естественное понятие.
Для каждого, кто тебе подказал, решение данной задачи элементарно. А тебе для понимания нужно более подробно объяснить. Это значит, что у тебя еще не достаточно квалификации и опыта. Это не говорит о том, что в твоей голове чего-то не хватает или плохо работает. Все придет с опытом. А его надо получать самому. Это такая штука, которую не получишь в посылке по почте.
Читай книги, пиши проги и все получится. Но не мгновенно. И не надо просить, что тебе все сделали другие.
Есть уровень знания и уровень понимания. Если ты получишь абсолютно готовый пример, ты будешь знать, как он работает. Если ты сделаешь это сам, то будешь понимать, как это работает. Чувствуешь разницу?
Удачи!
P.S. Чего это я так? Да просто устроил себе небольшой перерывчик :)
← →
Axis_of_Evil (2003-01-15 11:47) [13]Слухай все сюда:
в dpr:
program Initalize;
uses
Forms,
Dialogs,
Controls,
MainFrm in "MainFrm.pas" {MainForm};
{$R *.RES}
var
Password: String;
begin
if InputQuery("Password", "Enter your password", PassWord) then
if Password = "D4DG" then
begin
// Other initialization routines can go here.
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
else
MessageDlg("Incorrect Password, terminating program", mtError, [mbok], 0);
end.
← →
shok (2003-01-15 11:53) [14]Спасибо Axis_of_Evil все работает!
← →
Юра (2003-01-15 11:56) [15]> Axis_of_Evil
Меня глючит но по-моему на дельфикингдоме сильно не рекомендовали делать запрос пароля в dpr, а хотя бы OnShow формы.
← →
Calm (2003-01-15 12:06) [16]I>
> Юра (15.01.03 11:56)
Действительно так. Это не хороший стиль.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.009 c