|
dolphin
|
Дата: Пятница, 06.03.2009, 19:25 | Сообщение # 1
|
Администратор
Сообщений: 897
Статус: Offline
|
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SendMessage(WindowFromPoint(Mouse.CursorPos),EM_SETPASSWORDCHAR,0,0);
end;
Достаточно щелкнуть мышкой по элементу со "звездочками" и они моментально превратятся в исходные символы...
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
