Discussion :

[ChPr]

Bonjour à toutes et à tous,

Est-il possible, avec un TEdit en mode ReadOnly, de faire en sorte que, même si on clique dessus, le curseur texte ne s'affiche pas et que par balayage de la souris sur ce composant, le texte qui y est inscrit ne passe pas en surbrillance ?

Cordialement.

Pierre

[Jon Shannow]

Pourquoi ne pas mettre le "enabled" à faux, dans ce cas ?

[tourlourou]

TEdit.Enabled := False -> insensible, mais grisé

[BeanzMaster]

Salut

Le TEDit dispose d'une propriété "HideSelection" et "AutoSelect" mais cela ne semble pas fonctionner du moins sous Windows

Pour éviter la sélection via les événement "OnKeypress" OnMouseMove tu peux faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   Edit1.SelStart := -1;
   Edit1.SelLength := -1;

Pour ce qui est du curseur. Sous Windows uniquement il existe la méthode HideCaret(handle)

EDIT : Dans l'unité LCLIntf tu as la procedure HideCaret mais je ne sais pas si elle compatible avec Linux et autre OS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 
procedure TForm1.Edit1MouseEnter(Sender : TObject);
begin
  Screen.cursor := crNone;
end;
 
procedure TForm1.Edit1MouseLeave(Sender : TObject);
begin
   Screen.cursor := crDefault;
end; 
 
procedure TForm1.Edit1Enter(Sender : TObject);
begin
  HideCaret(Edit1.Handle);
end;    
 
procedure TForm1.Edit1MouseMove(Sender : TObject; Shift : TShiftState; X, Y : Integer);
begin
   Edit1.SelStart := -1;
   Edit1.SelLength := -1;
end; 
 
procedure TForm1.Edit1KeyPress(Sender : TObject; var Key : char);
begin
  Edit1.SelStart := -1;
  Edit1.SelLength := -1;
end;

A+

[ChPr]

Merci BeanzMaster pour cette proposition.

J'ai supprimé les deux fonctions effaçant et montrant le curseur car lorsque le curseur est au-dessus du TEdit, étant effacé, on ne sais plus où il est ; c'est plus gênant qu'autre chose.

Cela fonctionne très bien sous Windows, mais malheureusement sous Linux, le caret ne s'efface pas.

Je dévie un peu du sujet, mais ce genre d'opération ne peut-elle pas être gérée par ces fameux "Helpers" dont j'avoue ne pas avoir trop compris à quoi cela servait et comment s'en servir.

Cordialement.

Pierre

[BeanzMaster]

Salut, je me doutais (un peu ) que cela ne fonctionnerait pas sous Linux
Sinon concernant les assistants (helpers) non ça ne permet pas de rajouter un comportement, il servent à ajouter des méthodes. Si tu as beaucoup de TEdit dans ce genre dans ton application le mieux c'est de surcharger et de créer une nouvelle classe de composant

A+
Jérôme

[Andnotor]

Au plus simple c'est poser cet edit sur un panel et jouer avec le Enabled de ce dernier.