![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
Гость |
![]()
Сообщение
#1
|
Гость ![]() |
Ya xocu votchto skajem v forme bil odin edit i odin button v pole edit yesli ya pravilno napisal parol to eta forma izmenilas i etot samiy i edit i buttona uje ne bilo sovsem druqiye vesi bili skajemv forme budet tolko odna kartina kak edo delat?
Zaraniyem bolsoye spasibo za otvet |
Better Kind |
![]()
Сообщение
#2
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 52 Пол: Мужской Реальное имя: Александр Репутация: ![]() ![]() ![]() |
Куча вариантов. Вот например два:
-=1=- Запрос пароля идет на отдельной форме, на которой есть только Edit и Button. При запросе пароля вызываем это окно модально и проверяем правильность пароля: Повесим на обработчик нажатия кнопки такой код: Код procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text='pass' then {действия при верном пароле} Close; // закрываем эту форму, например // или Hide скрываем, например else {Пароль не верный - выход, или другие действия} end; -=2=- Другой вариант - с одной формой. Уровни доступа разделены на панели (Panel). При запросе пароля - скрываем все рабочие панели и показываем Панель пароля. Тот же код, только при верном пароле - скрываем панель пароля (Panel.Visible:=false;) и показываем нужную (Panel2.Visible:=true;) -------------------- With best regards, Better Kind
|
klem4 |
![]()
Сообщение
#3
|
|||
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|||
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 17:18 |