Proyecto con un Edit con PasswordChar = '*', compilado en delphi7.
Elproblema es que delphi7 no da el aviso de mayusculas activado, así que no lo puedo probar. Compílalo en tu delphi, más moderno.
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls,
Dialogs;
type
TEdit = class(StdCtrls.TEdit)
protected
procedure WndProc(var Message: TMessage); override;
end;
TForm1 = class(TForm)
Edit1: TEdit;
private
public
end;
var
Form1: TForm1;
const
ECM_FIRST = $00001500;
EM_SHOWBALLOONTIP = ECM_FIRST + 3;
implementation
{$R *.dfm}
procedure TEdit.WndProc(var Message: TMessage);
begin
if Message.Msg = EM_SHOWBALLOONTIP then exit;
inherited WndProc(Message);
end;
end.
Saludos.