Edit

← →
Olga_Oo (2003-12-05 10:30) [0]

Доброе утро...такой вопросик как сделать что бы в edite при вводе текста писались звездочки вместо букв...а тем временем в переменую s записывалось слово

← →
Amoeba © (2003-12-05 10:31) [1]

F1
PasswordChar

← →
Slym © (2003-12-05 10:32) [2]

А PasswordChar не катит?
а потом s:=edite.text;?

← →
Olga_Oo (2003-12-05 10:35) [3]

> Slym © (05.12.03 10:32) [2]
> А PasswordChar не катит?
низнаю может прокатит...там у меня стоит значение #0 а надо какое поставить?

← →
Amoeba © (2003-12-05 10:38) [4]

То, какое хочешь увидеть.
Edit.PasswordChar := "*";

← →
TUser © (2003-12-05 10:38) [5]

> Amoeba © (05.12.03 10:31) [1]

> Slym © (05.12.03 10:32) [2]

Наверное человек желает сделать пассворд-окошко, не вскрываемое прогами просмотра закрытых символов. Эти проги обычно просто посылают какой-то массаг и получают закрытый пароль. Если использовать для хранения введенного текста некую переменную, то такие проги ничего не совершат (они увидят ******).
А писать все лучше в виде своего отдельного компонента, там прописать реакцию на нажантие разных клавиш (OnKeyDown). Наследовать от TCustomEdit.

← →
-= @ndrew =- (2003-12-05 10:39) [6]

а надо * поставить вместо #0

← →
Amoeba © (2003-12-05 10:40) [7]

> TUser © (05.12.03 10:38) [5]
>
> > Amoeba © (05.12.03 10:31) [1]
>
>
> > Slym © (05.12.03 10:32) [2]
>
> Наверное человек желает сделать пассворд-окошко, не вскрываемое
> прогами просмотра закрытых символов. Эти проги обычно просто
> посылают какой-то массаг и получают закрытый пароль. Если
> использовать для хранения введенного текста некую переменную,
> то такие проги ничего не совершат (они увидят ******).
> А писать все лучше в виде своего отдельного компонента,
> там прописать реакцию на нажантие разных клавиш (OnKeyDown).
> Наследовать от TCustomEdit.

Вы не правы. Читаем Help:
Use the PasswordChar property to create an edit control that displays a special character in place of any entered text. If PasswordChar is set to the null character (ANSI character zero), the edit control displays its text normally. If PasswordChar is any other character, the edit control displays PasswordChar in place of each character typed. PasswordChar affects the appearance of the edit control only. The value of the Text property reflects the actual characters that are typed.

← →
Ivolg (2003-12-05 10:40) [8]

edit1.PasswordChar:="Пишешь любой символ";

> Amoeba © (05.12.03 10:40) [7]

Я прав. Кидаем на форму пассворд-окошко, сделанно обычным образом (черtз PasswordChar) и окошко с вот таким обработчиком
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin edittext:=edittext+key; key:="*"; end;

Далее пишем

procedure TForm1.FormCreate(Sender: TObject); begin edittext:=""; end; procedure TForm1.Button1Click(Sender: TObject); begin showMessage(edit1.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin showMessage(edit2.Text); end;

Результат - проги просмотра паролей (я попробовал openpass) видят пароль только в edit2, но не в edit1.

Это так, если
> человек желает сделать пассворд-окошко, не вскрываемое
> > прогами просмотра закрытых символов
(но из вопроса этого не видно, тем более если еще принять в внимание уровень знаний автора вопроса). В тривиальном же случае вполне достаточно стандартного решения, т.к. "The value of the Text property reflects the actual characters that are typed".

← →
Olga_Oo (2003-12-05 11:10) [11]

ого вы тут обсуждать пошли...я уже понела!

Значит пора закрывать ветку.

Edit Найти похожие ветки