Implementar una clase en un Objeto (TEdit)

[[escafandra]]

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
    { Private declarations }
  public
    { Public declarations }
  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.