Tema: Implementar una clase en un Objeto (TEdit)
Ver Mensaje Individual
  #1  
Antiguo 20-02-2015
Jose Roman Jose Roman is offline
Miembro
  
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Reputación: 18
Jose Roman Va por buen camino
Unhappy Implementar una clase en un Objeto (TEdit)
Cordial saludo,
Este tengo codigo:
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;
el cual muy amablemente escafandra y dec me colaboraron a pasarlo a pascal, he tratado de implementarlo pero mi nivel no es muy avanzado, alguien podría darme un ejemplo de como se implementa este código para utilizarlo en un TEdit con la propiedad PasswordChar = '*'?
Responder Con Cita