Deshabilitar Drag and Drop de TEdit

[Jovalca]

Hola de nuevo ecfisa.

No, eso también lo probé y no funciona, sigue aceptando arrastrar el contenidos. He pensado que es posible que el error venga de mi sistema operativo aunque no puedo estar seguro.

Se me ha ocurrido que quizá podría controlarlo, ya que no puedo con esos eventos, con el evento OnChange, hacer de algún modo que al cambiar el contenido del Edit, si detecta que no son números, comas y puntos, se borre el edit. Esto se podría hacer?

Gracias y Saludos.

[dec]

Hola,

¿Por qué no usas un "SpinEdit"? Este componente es similar a un "TEdit" pero su contenido ha de ser numérico. Tal vez incluso algún otro componente que no recuerdo ahora mismo hace lo mismo. Incluso el "TEdit" podría tener alguna propiedad de tipo "máscara" para que sólo admita números, digo, sin necesidad de codificar nada.

[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