En empêchant l'utilisateur de sélectionner du texte dans une note de contrôle
Paramètre est Activé False a certains effets secondaires indésirables...
Prévenir l'utilisateur de sélectionner du texte dans une note de contrôle
Le plus simple serait de définir la propriété Enabled de la note de service (ou de Modifier) le contrôle de Faux, de sorte que le contrôle ne peut pas recevoir des événements. Cet inconvénient de cette méthode est que l'utilisateur ne sera pas en mesure de faire défiler le texte et le texte désactivé semble mauvais.
afin d'empêcher l'utilisateur de l'écrit dans la note de service, nous avons mis en sa propriété ReadOnly à True.
Pour éviter à l'utilisateur de sélectionner du texte avec la souris, nous générer le gestionnaire de l'événement MouseMove de contrôle et d'écrire le code suivant:
procedure TForm1.Memo1MouseMove(Sender: TObject
& nbsp & nbsp & nbsp Shift: TShiftState X, Y: Entier)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si ssLeft dans Shift puis
& ! & ! & ! & ! & ! & nbsp Memo1.SelLength := 0
& nbsp & nbsp fin
afin de prévenir l'utilisateur d'effectuer une sélection à l'aide du clavier, on génère les gestionnaires de la KeyDown et KeyUp événements, de l'affectation de la OnKeyDown et OnKeyUp propriétés à la même procédure:
procedure TForm1.Memo1KeyDownUp(Sender: TObject
& ! & ! & ! & nbsp var Key: Word Shift: TShiftState)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si (ssShift en Maj) et ([VK_LEFT, VK_RIGHT, VK_UP,
& ! & ! & ! & ! & ! & ! & ! & nbsp VK_DOWN, VK_PRIOR, VK_NEXT, VK_HOME, VK_END]) puis
& ! & ! & ! & ! & ! & nbsp Clés := 0
& nbsp & nbsp fin
Vous pouvez trouver le code source complet de cet article dans les archives qui accompagne le Pascal Newsletter #25
En empechant l'utilisateur de selectionner du texte dans une note de controle
En empechant l'utilisateur de selectionner du texte dans une note de controle : Plusieurs milliers de conseils pour vous faciliter la vie.
Parametre est Active False a certains effets secondaires indesirables...
Prevenir l'utilisateur de selectionner du texte dans une note de controle
Le plus simple serait de definir la propriete Enabled de la note de service (ou de Modifier) le controle de Faux, de sorte que le controle ne peut pas recevoir des evenements. Cet inconvenient de cette methode est que l'utilisateur ne sera pas en mesure de faire defiler le texte et le texte desactive semble mauvais.
afin d'empecher l'utilisateur de l'ecrit dans la note de service, nous avons mis en sa propriete ReadOnly a True.
Pour eviter a l'utilisateur de selectionner du texte avec la souris, nous generer le gestionnaire de l'evenement MouseMove de controle et d'ecrire le code suivant:
procedure TForm1.Memo1MouseMove(Sender: TObject
& nbsp & nbsp & nbsp Shift: TShiftState X, Y: Entier)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si ssLeft dans Shift puis
& ! & ! & ! & ! & ! & nbsp Memo1.SelLength := 0
& nbsp & nbsp fin
afin de prevenir l'utilisateur d'effectuer une selection a l'aide du clavier, on genere les gestionnaires de la KeyDown et KeyUp evenements, de l'affectation de la OnKeyDown et OnKeyUp proprietes a la meme procedure:
procedure TForm1.Memo1KeyDownUp(Sender: TObject
& ! & ! & ! & nbsp var Key: Word Shift: TShiftState)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si (ssShift en Maj) et ([VK_LEFT, VK_RIGHT, VK_UP,
& ! & ! & ! & ! & ! & ! & ! & nbsp VK_DOWN, VK_PRIOR, VK_NEXT, VK_HOME, VK_END]) puis
& ! & ! & ! & ! & ! & nbsp Cles := 0
& nbsp & nbsp fin
Vous pouvez trouver le code source complet de cet article dans les archives qui accompagne le Pascal Newsletter #25
En empêchant l'utilisateur de sélectionner du texte dans une note de contrôle
By commentfaire
En empêchant l'utilisateur de sélectionner du texte dans une note de contrôle : Plusieurs milliers de conseils pour vous faciliter la vie.
