Deshabilitar Drag and Drop de TEdit
Buenas Tardes Chicos.
Primero y como siempre, gracias por tomaros la molestia de dedicar 5 minutos a este tema.
Tengo un TEdit, el cual tengo controlado en OnKeyPress que solo se introduzcan números y una coma, ya que posteriormente este valor es sumado a otros tantos y sólo puede contener un valor numérico. Para evitar la acción de pegar, por si el contenido del portapapeles no es numerico, he deshabilitado con OnKeyDown las teclas Crtl+V, es decir, la acción de pegar. Ahora se me presenta otro problema, el drag&drop, porque si alguien arrastra un contenido no numerico a este edit, me lanza el error de que no es Float, ya que la suma se hace en el evento OnEditingDone.
He probado a poner Edit1.Clear en los eventos OnStartDrag, OnEndDrag, OnDragDrop... pero sigue aceptando el contenido arrastrado.
Hay alguna manera de controlar esto o deshabilitarlo de este edit o directamente del formulario entero?
Mil gracias por vuestra siempre útil ayuda.
Un abrazo.
|