| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пароль

Sergy ©   (2002-02-22 17:53:00) 

Подскажите пожалуйста как в программе сделать чтобы пароль при вводе отображался звездочками?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TestPassword(): Boolean;
var
str: AnsiString;
begin
InputQuery(Form1.Caption, "Введите пароль", str);
if str="123" then
Result:=True
else
Result:=False;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not TestPassword() then
CanClose:= False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

---

KaPaT   (2002-02-23 11:29:00) [1]

Ну если не знаешь PasswordChar то можно и самому обрабатывать

---

vl_chel   (2002-02-23 09:37:00) [2]

в Objeyt Inspector
CODE>PasswordChar := "*";<

---

Sergy   (2002-02-23 08:58:00) [3]

Как это сделать в программе, добавить компонент TEdit?

---

Ross   (2002-02-22 18:22:00) [4]

Едит имеет cвойство Passwordchar

---

Kozhanov   (2002-02-22 18:20:00) [5]

> Sergy
Смотри св-во PasswordChar у компонента TEdit.

---

Наверх