Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

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

 
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 заменить на * никак?


 
Kerk ©   (2005-02-27 16:44) [13]

Antonn ©   (27.02.05 16:39) [12]
а passwordchar заменить на * никак?


[5] - надежнее :)


 
begin...end ©   (2005-02-27 16:45) [14]

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

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

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

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


 
begin...end ©   (2005-02-27 16:46) [15]

> begin...end ©   (27.02.05 16:45) [14]

> Так что [3] и [5] ...

Так что [2] и [5] ...


 
Kerk ©   (2005-02-27 16:48) [16]

begin...end ©   (27.02.05 16:45) [14]
это, уж извините, именно велосипед. И именно с квадратными колёсами.


Зато смешно :)


 
olookin ©   (2005-02-27 16:49) [17]

[14] begin...end ©   (27.02.05 16:45)

Колоссально...


 
Anatoly Podgoretsky ©   (2005-02-27 16:54) [18]

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



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.04 c
3-1108100952
m-a-x
2005-02-11 08:49
2005.03.13
сохранение бд


10-1082718551
Alex_x
2004-04-23 15:09
2005.03.13
помогите определится с Excel


14-1108920064
Kerk
2005-02-20 20:21
2005.03.13
зачем нужны папки _vti_* ?


1-1109201745
jcrush
2005-02-24 02:35
2005.03.13
Сравнить и заменить дополнить текстовые файлы в с каталоге


6-1104903666
uny
2005-01-05 08:41
2005.03.13
ping каждые 2 минуты - спец маленькая прога