Главная страница
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.024 c
14-1108734705
Иксик2
2005-02-18 16:51
2005.03.13
Поговорим о нанотехнологиях


8-1101267734
DDDeN
2004-11-24 06:42
2005.03.13
Проиграть mp3 через DirectSound


1-1109670882
Ivolg
2005-03-01 12:54
2005.03.13
Ошибка


14-1108985752
wl
2005-02-21 14:35
2005.03.13
Распознавание цифр на рисунке


4-1107172813
BaDeVlad
2005-01-31 15:00
2005.03.13
Как вывести Unicode-строку?