Prevenir al usuario de seleccionar texto en un bloc de control

Prevenir al usuario de seleccionar texto en un bloc de control

Prevenir al usuario de seleccionar texto en un bloc de control : Multi-millones de consejos para hacer su vida mas facil.

la Configuracion Enabled a False tiene algunos efectos secundarios indeseables...
Prevenir al usuario de seleccionar texto en un Bloc de control
La forma mas sencilla seria la de establecer la propiedad Enabled de la nota (o Editar) de control a False para que el control no puede recibir eventos. Este inconveniente de este metodo es que el usuario no sera capaz de desplazarse por el texto y la movilidad de texto se ve mal.
con el fin De evitar que el usuario pueda escribir en la nota, se establezca su propiedad ReadOnly en True.
Para evitar que el usuario de seleccionar texto con el raton, generamos el manejador de eventos para el evento MouseMove del control y escribir el siguiente codigo:
procedure TForm1.Memo1MouseMove(Sender: TObject
& nbsp & nbsp & nbsp Shift: TShiftState X, Y: Integer)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp si ssLeft en Cambio, a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Memo1.SelLength := 0
& nbsp & nbsp final
con el fin De evitar que el usuario realice una seleccion con el teclado, se generan los controladores de los eventos KeyDown y KeyUp, la asignacion de la OnKeyDown y OnKeyUp propiedades para el mismo procedimiento:
procedure TForm1.Memo1KeyDownUp(Sender: TObject
& nbsp & nbsp & nbsp & nbsp var Clave: Palabra Shift: TShiftState)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp si (ssShift en Mayusculas) y (Clave [VK_LEFT, VK_RIGHT, VK_UP,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VK_DOWN, VK_PRIOR, VK_NEXT, VK_HOME, VK_END]) a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Clave := 0
& nbsp & nbsp final
Usted puede encontrar el codigo fuente completo de este articulo en el archivo que acompaña a la Pascal Boletin #25