PassWord Form и как ее сделать

← →
LittleGirly (2003-06-10 09:59) [0]

Подскажите как написать форму для ввода логина и пароля пользователя. Пароль высвечивается ****. Где-то видела раньше пример, но не могу найти.

← →
mrcat (2003-06-10 10:08) [1]

&File -> New -> Other ... -> Dialogs -> Password Dialog

← →
AbrosimovA (2003-06-10 10:15) [2]

Любой Edit на форме со свойством PasswordChar=*

← →
vidiv (2003-06-10 10:16) [3]

тебе на WinApi или нет. Если нет, то делаешь обычную форму, кидешь на нее 2 едита (логин и пароль (EditLogin, EditPasswd)) с убраным text"ом, и 2 кнопки (ОК, отмена). И разукрашивешь ее LAbel"ами. у парольного елита ставишь passwordchar равный чему пожелаешь! У формы делаешь BorderStyle=bsDialog, кнопки убираешь лишние (BorderIcons).
У OK делаешь ModalResult = mrOK,default=True; у cancel ModalResult=mrCancel,Cancel=True;
Все форма готова. Теперь чуть кода в OnShow:
EditLogin.SelectAll;
EditPasswd.Clear;
Пусть эта форма была в модуле PasswdUnit, а ее тип(класс): TPasswdForm;
тогда ее можно так использовать:
var Pf:TPasswdForm;
begin
Pf := TPasswdForm;
Pf.EditLogin.Text := "Логин по умолчанью";
Case Pf.ShowModal of
mrOK: begin
if (login="discent")and(Pf.EditPasswd="gabbagabbahey") then
ShowMessage("Пароль и логин правильные") else
ShowMessage("Пароль и логин НЕ правильные");
end;
else
Showmessage("Нет ни пароля не логина");
Pf.Free;
end;
end;

← →
LittleGirly (2003-06-10 10:18) [4]

Спасибо, в работе!

← →
vidiv (2003-06-10 10:19) [5]

> LittleGirly (10.06.03 10:18)
> Спасибо, в работе!

Если что пиши!!!! vid@sakhgu.sakhalin.ru

PassWord Form и как ее сделать Найти похожие ветки