Ver Mensaje Individual
  #8  
Antiguo 23-02-2012
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 21
Chris Va por buen camino
Cita:
Empezado por kapcomx Ver Mensaje
En XE2 he usado un componente llamado labelededit.
tiene la propiedad Onlynumbers. si la pones en true
te indica un ballontip, cuando intentas escribie un texto o simbolo.

Cita:
Empezado por lmpadron Ver Mensaje
si, tambien lo he visto pero estoy trabajando con bcb6 y este no lo tiene !!!
No te preocupes por eso. Se puede implementar con la API de Windows:
Código Delphi [-]
var
    EditStyle: Integer;
begin
    EditStyle := GetWindowLong(Edit1.Handle);
    EditStyle := EditStyle or ES_NUMBER
    SetWindowLong(Edit1.Text, EditStyle);
end;

Saludos.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita