Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

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



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-84393
Rel_
2003-06-09 14:05
2003.06.26
кол-во своб. памяти


1-84318
Unknown007
2003-06-14 17:23
2003.06.26
Tmemo, изменение цвета в одной строке.


14-84727
nick-from
2003-06-05 14:17
2003.06.26
DBF


14-84529
_Peacemaker
2003-06-06 18:06
2003.06.26
Поговорите со мной


14-84677
drin
2003-06-09 04:42
2003.06.26
Всем любителям современной отличной клубной музыки