Deshabilitar Drag and Drop de TEdit

[Jovalca]

Gracias por vuestras respuestas.

Conozco el componente, pero ya tengo la aplicación casi terminada y el reemplazar ahora todos los edit con estas características sería una locura. Para próximas tomo nota.
Para hacer lo que comentaba, si al cambiar detecta texto en vez de numero, que vacíe el tedio tengo algo como esto.

 if ( StrScan('0123456789,.') = nil ) then
Edit1.Clear;

Pero no compila, es evidente que no esta bien, que estoy poniendo mal?

Gracias de nuevo y un saludo.

[adrall]

Yo creo que te falta un parametro en el StrScan o bien la comillas estan mal puestas:

Código Delphi [-]
function StrScan ( const Characters : PAnsiChar; SearchChar : Char ) : PAnsiChar;

Deberias poner

Código Delphi [-]
if ( StrScan('0123456789,.','el numero o caracter que sea') = nil ) then
Edit1.Clear;

Saludos

[adrall]

Has probado las funciones TryStrToFloat... TryStrToInt... TryStrToDate... ? Las puedes usar en el OnExit del TEdit para comprobar la validez del valor introducido:

Código Delphi [-]
   if not TryStrToFloat(Text, fFloatVar) then
      TEdit.SetFocus;
      end;

Este ejemplo impediría salir del TEdit si el valor no es correcto, aunque lo puedes utilizar de muchas formas.

Saludos