Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Пароль 


Sergy   (2002-02-22 17:53) [0]

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

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.



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

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



Ross   (2002-02-22 18:22) [2]

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



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

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



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

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



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

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
1-32509           Igor_                 2002-02-25 12:50  2002.03.11  
Как определить сколько дней в заданном месяце


4-32605           mr.Morra              2002-01-12 19:44  2002.03.11  
Вывести сообщения поверх других окон.


1-32478           Geser                 2002-02-23 21:16  2002.03.11  
RxLib und D6


6-32526           Olfi                  2001-12-23 19:15  2002.03.11  
Нужен help по компоненту NMSMTP1


1-32438           Fredericco            2002-02-22 11:02  2002.03.11  
У меня вопрос, наверно, ламерский, но в FAQ е я этого не нашел. Вопрос по воводу сворачивания окон.