IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Parol, Pomoqite plz
сообщение
Сообщение #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
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 2)
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 52
Пол: Мужской
Реальное имя: Александр

Репутация: -  1  +


Куча вариантов. Вот например два:
-=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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


М
гость, специально для любителей писать транслитом есть тег [ translit ] [ / translit ]



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 1:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name