Problema con passwordchar

[ecfisa]

Empezado por Casimiro Notevi

He oído alguna vez que existen programitas para ver las claves que se teclean.
Igual tiene alguno instalado.

Así es, y no es una tarea titánica realizarlos, el control Edit no es precisamente un virtuoso de la seguridad .

Un ejemplo trivial sobre un form y usando solamente VCL:

Código Delphi [-]
type
 TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure AppEventsIdle(Sender: TObject; var Done: Boolean);
...

implementation

procedure TForm1.AppEventsIdle(Sender: TObject; var Done: Boolean);
var
  wc : TWinControl;
begin
  wc := FindVCLWindow(Mouse.CursorPos);
  if wc <> nil then
    if wc is TCustomEdit then
     Caption := TCustomEdit(wc).Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := 'Edit 1, continua en Edit2';
  Edit2.Text := 'Edit 2, continua en Edit3';
  Edit3.Text := 'Edit 3, fin';
  Edit1.PasswordChar := '*';
  Edit2.PasswordChar := '*';
  Edit3.PasswordChar := '*';
  Application.OnIdle:= AppEventsIdle;
end;
...

Trabajando un poco con Win Api se puede elaborar código que funcione sin problemas sobre otra aplicación.

Saludos