Форум: "Основная";
Текущий архив: 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 то можно и самому обрабатывать
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c