Ovo se nekada davno nalazilo na mom home page-u, ne znam odakle sam ja to preuzeo pre nekoliko godina...
Delphi - Password forma
Često će vam u aplikacijama zatrebati forma za unos nekog korisničkog imena i lozinke. Ova forma može da posluži za logovanje na mrežu ili logovanje u neku zaštićenu aplikaciju. Za ovakvu formu se najčešće koriste, objekat tipa Button i dva objekta tipa Edit ili MaskEdit, što je bolje rešenje. Polje za unos korisničkog imena može biti tipa Edit, a polje za unos lozinke bi trebalo da bude tipa MaskEdit zbog zaštite tajnosti ovih podataka. Kada korisnik bude unosio lozinku videće se samo niz znakova određenih preko osobine kontrole "PasswordChar". Na primer, za ovu osobinu odredite karakter "*", i kada korisnik bude unosio tekst lozinke u ovo polje videće se samo niz ovih karaktera ("*******").
Često će se podaci uneti preko ovih polja upoređivati sa onima koji su skladišteni u odgovarajućoj bazi podataka.
Pri ovome, kada korisnik bude unosio ili menjao lozinku, obezbedite za ovu operaciju dva ista polja, zbog provere tačnog unosa.
Kao primer, kreiraćemo jednu Password formu. Pokrenite novi projekt i prođite kroz sledeće korake:
*
Izaberite meni "File > New", te izaberite "Password Dialog" sa kartice Dialogs.
*
Sa palete komponenti izaberite klasično dugme (Button) i postavite ga glavnu formu. Te u proceduru za obradu događaja "OnClick" dodajte sledeći kod:
· PasswordDlg.ShowModal;
· ShowMessage(PasswordDlg.Password.Text);
*
Da bi pridodali ovaj kod glavnoj formi, dodajte u modul "Unit1", u direktivu "Uses", "Unit1".
· uses Unit2,...
*
Pokrenite program pritiskom na F9, pa unesite lozinku u dijalog prozor. Kada kliknete na "OK", program će prikazati šta ste uneli preko dijalog prozora "ShowMessage".
|