Подскажите как запаролить открытие формы в Delphi

Если я тебя правильно понял, то самое простое для тебя будет перед показом требуемой формы вывести еще одну с логином и паролем если все совпало то показываешь искомую форму если нет пишешь типа access dinied

на FormActivate скрыть все объекты, оставив толькокнопку и, например,Edit. Потом проверяем условие: if Edit1.text='password' then <и все что надо делаем видимым>
Можно еще заморочиться и прописать все через коды клавиш,а в edit'е печатать *, т.е. при нажатие на клавишу считывать ее код в строку ( а:string ), а в Edit печатать *.
Выбор пользователя - через ComboBox. Там можно автоматически добавлять новых пользователей.

Vladimir13

Цитата

на FormActivate скрыть все объекты, оставив толькокнопку и, например,Edit.

интересно а что ты предложишь если ентих самых обьектов окло 15 - 20....
по моему разумнее добавить еще одну "парольную" форму...
а идея по поводу

Цитата

Выбор пользователя - через ComboBox

интересная задумка...
кста енту парольную форму действительно мона кинуть в FormActivate...

Добавлено @ 08:50
только один нюанс...
а где и в каком виде ты предлогаешь хранить список юзверей и их пасворды?

все очень просто: все храниться в Memo как строки. соответственно, проверяем в зависимости от имени (ComboBox1.Text) ставим в ComboBox2.text его пароль.
if ComboBox1.Text='Name1' then ComboBox2.Text:=memo1.Lines[1]; или сразу ComboBox2.Text:='Password1';

Цитата(Patrius @ 9.12.2004, 08:49)

Vladimir13 Цитата интересно а что ты предложишь если ентих самых обьектов окло 15 - 20....

А можно очень просто решить эту проблему помести все компоненты на Panel, и растяни ее на всю форму и простым движением
Panel1.visible:=true

Компоненты на панели становятся видимыми

Программист может поместить любой код до обращения к методу Application.Run. В частности, он может показать диалоговое окно с запросом пароля и блокировать вызов Application.Run, если введенный пользователем пароль неверен. В следующем примере в проекте используются две формы: стандартная форма InputQuery и главная форма MainForm. Форма InputQuery создается при обращении к одноименной функции, определенной в модуле Dialogs. Она представляет собой небольшое диалоговое окно с однострочным редактором TEdit и двумя кнопками — ОК и Cancel. В окне пользователь должен ввести пароль (Delphi) и нажать Enter.

Код

program Password;   uses  Forms,  Dialogs,  // В этом модуле определена функция InputQuery    Unit1 in 'Unit1.pas' {MainForm};   {$R *.RES} var  Passwrd: String; begin  // Запрашиваем пароль:  if InputQuery('Окно ввода пароля','Введите пароль:',Passwrd)    then  // Проверяем его:  if Passwrd = 'Delphi' then  begin  // Все в порядке, пароль верен    Application.CreateForm(TMainForm, MainForm);    Application.Run;  end else    ShowMessage('Пароль не верен!'); end.

c учетом того что AlexSn - - новичок, то ему будет понятнее мой способ, оптимизированный Satana.
Satana - умное решение, я не догадался

В JEDI есть специальна компонета - login,Pasword
Если ее кинуть на главную форму то перед открытием формы возникнет окно где нужно ввести логин и пасворд.

Ddddddelphi, ты тоже пользуешься книгой В. Фаронов, из Delphi6.

нет у меня Фаронов Delphi 5, а приведённый мной код по-моему он писал, но только я нашёл это в инете в статейтке "Заметки прграммиста". А тебе его книга понравилась? Уж слишком у него всё поверхностно описывается... сейчас читаю Архангельского.....

Цитата(Ddddddelphi @ 9.12.2004, 19:49)

А тебе его книга понравилась? Уж слишком у него всё поверхностно описывается...

Конечно, понравилась!!! Я с ней только и работаю, и ещё с форумом.
И вовсе там не поверхносно описано, там описано основа Delphi, а дальше к основным компонентам свойства. Начинал учить по ней с нуля (за исключением того что уже знал Паскаль), и помоему боле-менее научился, по крайней мере получил представление о Delphi.

Цитата(Ddddddelphi @ 9.12.2004, 10:25)

program Password; uses Forms, Dialogs,  // В этом модуле определена функция InputQuery  Unit1 in 'Unit1.pas' {MainForm}; {$R *.RES} var Passwrd: String; begin // Запрашиваем пароль: if InputQuery('Окно ввода пароля','Введите пароль:',Passwrd)    then // Проверяем его: if Passwrd = 'Delphi' then begin  // Все в порядке, пароль верен    Application.CreateForm(TMainForm, MainForm);    Application.Run; end else    ShowMessage('Пароль не верен!'); end.

Хочу добавить, юзание выше описанного примера совершенно безполезно
если строка:

Код

Application.CreateForm(TForm1, Form1);

небыла удалена, из Project.dpr.

Это сообщение отредактировал(а) RAdmin - 10.12.2004, 01:37

Цитата(Vladimir13 @ 9.12.2004, 08:14)

при нажатие на клавишу считывать ее код в строку ( а:string ), а в Edit печатать *.

Для этого нужно использовать свайство PasswordChar.
Например, так:

Код

Edit1.PasswordChar := '*';

Цитата(Zero @ 9.12.2004, 22:24)

Ddddddelphi, ты тоже пользуешься книгой В. Фаронов, из Delphi6. smile

Фараонова я вообще не воспринимаю. Много и ни о чем. ИМХО единственный грамотный русскоязычный автор - Шумаков, другие только вату катают. Если хотите получить профессиональные знания, даже если вы только начинающий, то я бы порекомендовал книги зарубежных авторов.