Показать символы для пароля в XP



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{
Set the font to Wingdings and then type on the
PasswordChar := l;
or ...
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Font.Name := 'Wingdings';
Edit1.PasswordChar := 'l';
end;

Далее: Проверка ISBN »»