EM_SHOWBALLOONTIP C++ a Delphi

[[escafandra]]

Aunque no lo puedo probar, pues lo escribí con delphi 7, prueba con este código en tu unit, delante del formulario:

Código Delphi [-]
type   
TEdit  = class(StdCtrls.TEdit)     
  protected       
    procedure WndProc(var Message: TMessage); override;   
end;

const   
ECM_FIRST  = $00001500;   
EM_SHOWBALLOONTIP = ECM_FIRST + 3;  

implementation  

procedure TEdit.WndProc(var Message: TMessage); 
begin
   if Message.Msg = EM_SHOWBALLOONTIP then exit;
   inherited WndProc(Message); 
end;

Saludos.

[dec]

Hola,

Empezado por escafandra

Aunque no lo puedo probar, pues lo escribí con delphi 7, prueba con este código en tu unit, delante del formulario:

Código Delphi [-]
type   
TEdit  = class(StdCtrls.TEdit)     
  protected       
    procedure WndProc(var Message: TMessage); override;   
end;

const   
ECM_FIRST  = $00001500;   
EM_SHOWBALLOONTIP = ECM_FIRST + 3;  

implementation  

procedure TEdit.WndProc(var Message: TMessage); 
begin
   if Message.Msg = EM_SHOWBALLOONTIP then exit;
   inherited WndProc(Message); 
end;

Saludos.

Funciona como se espera. Probado en Delphi XE2.

[[escafandra]]

Me alegro, dec.

Saludos.

[Jose Roman]

Gracias por su respuesta me fue de gran ayuda

[Jose Roman]

Ustedes podrían ayudarme con un ejemplo de como implementar ese codigo con Edit con la propiedad PasswordChar := '*'??

[Jose Roman]

De antemano gracias por la colaboración.

[[escafandra]]

Te respondo aquí.


Saludos.