Подскажите как запаролить открытие формы в 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

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

Цитата(Pegas @ 11.12.2004, 14:51)

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

Это точно.

Спасибо, так и сделаю... Тоже самое нам постоянно говорит наш лектор по КГ, и всё время опускает рускоязычных авторов.

Цитата(AlexSn @ 9.12.2004, 06:49)

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

А нафиг?

AlexSn вот здесь можеш почерпнуть информацию для размышления. Старая конечно дискусия... но думаю что для многих будет интересно её почитать.

Удачи.

есть хорошая книга Архангельский А.Я. "Delphi - 6" супер книга. А Фаронов - полная чушь, а Паскаль у него хороший.

Цитата(Vladimir13 @ 12.12.2004, 20:13)

есть хорошая книга Архангельский А.Я. "Delphi - 6" супер книга. А Фаронов - полная чушь,  а Паскаль у него хороший.

да Архангельского хорошая книга, только толстая, когда ж я её до конца дочитаю, но мне понравилось что у него более полно описываются и компотенты и другое в работе с Delphi,
а у Фаронова простые программы, которые он приводит в своей книге нужно додумывать самому до ума......вообще-то для работы с простыми програмами мне в маге приглянулась книга "delphi в задач" Культин...просмотрел там и мп3-проигрыв, тест-проги, ежедневник...
для начинающих стоит покупать...особенно после Фаронова когда после прочтение его книги накапливаются вопросы!!

Архангельский А.Я. тоже поверхностно описывает. Лично мне не нравиться, даже если я ставлю себя на место новичка.

А я ваще вырос на статьях в нете и ничо работаем потихоньку

Цитата(Satana @ 12.12.2004, 23:46)

А я ваще вырос на статьях в нете и ничо работаем потихоньку

на статьях - прикольно, накопал инфу про работу с реестром - радость, на что ещё натолкнулся, бд простенькую построил - радость, sql - захотел добавить, опять поиск и т.д. Satana, или ты через форум больше получал? за 4 дня надоело.....купил книгу о которых в форумах можно отзывов было...

Это сообщение отредактировал(а) Ddddddelphi - 13.12.2004, 00:06

Ddddddelphi не знаю, я в этом жмот мне проще в яндухе набрать что мне нада и работать с тем что он мне выдаст

Архангельского я пользую еще со студенческой скамьи, и теперь использую для преподавания детям. ОЧЕНЬ помогает.
P.S. Новичок в форуме не означает новичка по жизни в программировании. ( специально для Pegas'а при всем уважении к занимаемой должности )

про это хорошо написано все в том же Архангельском "Delphi 6" раздел 5.5.3 стр 359-363