hallo,
in meinem programm möchte ich einhalbwegs sicheres password edit benutzen.
ich versuche nun die tastatureingabe abzufangen und die ankommenden keys in einen string zu speichern, ausserdem möchte ich gleichzeit halt die bekannten sternchen ins edit schreiben?
Delphi-Quellcode:
procedure TForm1.EditWndProc(var Message: TMessage);
var
password: string
begin
if (Message.Msg = WM_KEYUP) then
begin
s := s + '*';
edtPwd.Text := s; // hier wird immer kurz das eingegebene zeichen angezeit
password := ? // hier muss ich an die keys kommen aber wie?
Message.Result := 1;
end else
FOldEditProc(Message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FOldEditProc := edtPwd.WindowProc;
edtPwd.WindowProc := EditWndProc;
end;
soweit bin ich schonmal. meine frage ist jetzt, wie komm ich an die keys? wenn ich versuche das sternchen so zu setzen, wird immer das eingegebene zeichen noch kurz angezeigt. wie kann ich das verhindern?
danke im voraus.
MfG,
cookie