Пароль на программу

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Сообщение CoverStory » 03.03.2006 19:32:29

Еще раз всем доброго!!!
Вопрос следующего характера!!! Хочу поставить пароль призагрузке своей программы!!!
В событии формы onCreate ставлю passwordbox, но что-то он не хочет работать "проблемы с синтаксисом :( ".
Кто сталкиваля с такой проблемой?
CoverStory
новенький
 
Сообщения: 95
Зарегистрирован: 09.02.2006 18:21:42
Откуда: Семипалатинск

Сообщение SAK » 03.03.2006 20:08:02

А можно подробнее? Что за "проблемы с синтаксисом"?
SAK
постоялец
 
Сообщения: 158
Зарегистрирован: 18.02.2006 00:45:14
Откуда: Тим

Сообщение CoverStory » 04.03.2006 12:06:24

Думал, Примерно вот так!!!
Код: Выделить всё
program stock;

{$mode objfpc}{$H+}

uses
 Interfaces, // this includes the LCL widgetset
 Forms
 { add your units here }, Dialogs, stock1;
var
b: string;
begin
 b:='vbyb';
if b=passwordbox('Введите пароль', 'Пароль') then
begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end else
showmessage('Пароль не верен');
end.        


<span style='color:red'>На этом форуме используются BB-коды, а не псевдо-теги: [ code ], а не < code ></span>
CoverStory
новенький
 
Сообщения: 95
Зарегистрирован: 09.02.2006 18:21:42
Откуда: Семипалатинск

Сообщение Yury » 04.03.2006 18:13:16

Попробуй вставить вызов функции
passwordbox
после
Application.Initialize;
Функция
passwordbox видимо будет создавать форму для этого ей понадобиться переменная
Application.
Yury
 

Сообщение CoverStory » 06.03.2006 13:42:58

Так лучше но на моей версии 0.9.10 идет все пароль вводится открытым текстом а хотелось *. И не работает Cancel.
CoverStory
новенький
 
Сообщения: 95
Зарегистрирован: 09.02.2006 18:21:42
Откуда: Семипалатинск

Сообщение Guest » 06.03.2006 14:44:51

я делал примерно так...
делал форму (основную) с авторизацией... (ф1)
и две формы, для администратора(ф2) и оператора(ф3)

на ф1 вешал два тектовых(е1, е2) поля, и кнопку, и в коде кнопки писал:

если е1='Администратор' и е2='pass' то
начало
ф2.показать
ф1.скрыть
конец
если е1='Оператор' и е2='pass' то
начало
ф3.показать
ф1.скрыть
конец

но был глюк, делал это все под линуксом, как е2 использовал там какойто едит, (не помню) который текст скрыват под здездами... все было классно, но вот собрал под виндой, и тот компонент перестал скрывать текст за звездами...

я таким образом решил проблему...
Guest
 

Сообщение CoverStory » 07.03.2006 14:55:31

Под Linux'ом идет passwordbox? кто пробовал?
CoverStory
новенький
 
Сообщения: 95
Зарегистрирован: 09.02.2006 18:21:42
Откуда: Семипалатинск

Сообщение Guest » 13.03.2006 15:01:14

CoverStory писал(а): Под Linux'ом идет passwordbox? кто пробовал?

я пробывал...
вместо эдит его использовал...
Guest
 


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex [Bot] и гости: 8

Рейтинг@Mail.ru
cron