Как заменить символы на *

← →
Bogdan (2005-02-27 16:22) [0]

Здравствуйте, такой вопрос: как можно заменить печатающиеся символы на *. Точно так, как при вводе пароля. Благодарен за ответ.

← →
begin...end © (2005-02-27 16:23) [1]

> Bogdan (27.02.05 16:22)

Заменить ГДЕ?

← →
olookin © (2005-02-27 16:25) [2]

Например в событии OnChange

← →
begin...end © (2005-02-27 16:26) [3]

> Bogdan (27.02.05 16:22)

Если имеется в виду компонент TEdit, то см. свойство TEdit.PasswordChar.

← →
Antonn © (2005-02-27 16:26) [4]

2 Bogdan -->

> Заменить ГДЕ?

Компонент какой?

← →
Kerk © (2005-02-27 16:29) [5]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Key := "*"; end;

← →
olookin © (2005-02-27 16:30) [6]

[5] Kerk © (27.02.05 16:29)

Пробовали? Компилируется?

← →
Kerk © (2005-02-27 16:32) [7]

olookin © (27.02.05 16:30) [6]

KeyPress конечно имелось ввиду :)

← →
olookin © (2005-02-27 16:34) [8]

[7] Kerk © (27.02.05 16:32)

Тогда понятно...

← →
Bogdan (2005-02-27 16:34) [9]

>Kerk © (27.02.05 16:29) [5]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key := "*";
end;

Если это правильно то все ОК!!!
А заменять нужно в TEdit.

← →
begin...end © (2005-02-27 16:35) [10]

Да, желание изобретать велосипед с квадратными колёсами труднопреодолимо.

← →
olookin © (2005-02-27 16:38) [11]

[10] begin...end © (27.02.05 16:35)

Ну уж велосипед сразу... Лично я бы стал менять содержимое TEdit через его OnChange. Не знал, что можно OnKeyPress использовать (см. Kerk). Так что перефразирую ваш велосипед на свой лад - Век живи, век учись...

← →
Antonn © (2005-02-27 16:39) [12]

Bogdan (27.02.05 16:34) [9]
а passwordchar заменить на * никак?

> olookin © (27.02.05 16:38) [11]

Вы то-сами как считаете - что проще: изменить значение одного свойства или написать целый обработчик?

А теперь внимание - самое главное. Если воспользоваться [3], то после ввода в edit текста в нём будут видны, например, звёздочки (что и требуется), но в свойстве Edit.Text будет введённый текст. А если воспользоваться [2] или [5], то звёздочки, конечно, тоже отобразятся, но в Edit.Text тоже будут одни звёздочки! Ну и зачем нужен такой ввод текста? Чтобы потом подсчитать количество звёздочек?

Так что [3] и [5] - это, уж извините, именно велосипед. И именно с квадратными колёсами.

begin...end © (27.02.05 16:45) [14]
Трудно сказать, зачем нужно автору символы менять на звездочки, но именно это он и попросил. Только обработчик события клавиши это не то, не надежно, ввести туда можно и без клавиатуры, менять надо именно в OnChange/

Как заменить символы на * Найти похожие ветки