Discussion :

[czezko]

Est-il possible d'enlever le curseur d'attente de frappe (je ne sais plus comment ça s'appelle) dans un TEdit autrement qu'avec un enable=false

[Gaadek]

Y'a pas moyen en jouant sur la valeur cursor du contrôle? (Placer la valeur crArrow à la place de crDefault)??

[Whiler]

Sur une nouvelle fiche, ajoute un TEdit...

et ensuite, voici le code :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit Unit1;
 
interface
 
uses
  Windows, Classes, Controls, StdCtrls, Forms, Messages;
 
const
    WM_MYEDIT_ENTER = WM_USER + 1;
 
type
  TForm1 = class(TForm)
  Edit1: TEdit;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
  public
    procedure WMMyEditEnter(var Message: TMessage); message WM_MYEDIT_ENTER;
  end;
 
var Form1: TForm1;
 
implementation
{$R *.DFM}
 
procedure TForm1.WMMyEditEnter(var Message: TMessage) ;
begin
   CreateCaret(Edit1.Handle,0,0,0) ;
end;
 
procedure TForm1.Edit1Enter(Sender: TObject) ;
begin
   PostMessage(Handle, WM_MYEDIT_ENTER, 0, 0) ;
end;
 
procedure TForm1.Edit1Exit(Sender: TObject) ;
begin
   CreateCaret(Edit1.handle,1,1,1) ;
end;
 
procedure TForm1.Edit1Change(Sender: TObject) ;
begin
   CreateCaret(Edit1.handle,0,0,0) ;
end;
 
end.

Fortement inspiré de la solution de Zarko Gajic.

[Fabrice ROUXEL 1]

Une autre solution

Ce qu'il y a à retenir c'est que le message est à envoyer à la fiche.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
  const WM_MYEDIT_ENTER = WM_USER + 1;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  public
     procedure WMMyEditEnter(var Message: TMessage); message WM_MYEDIT_ENTER;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}        
 
procedure TForm1.WMMyEditEnter(var Message: TMessage) ;
begin
  HideCaret(Edit1.Handle);
end;
 
procedure TForm1.Edit1Enter(Sender: TObject) ;
begin
   PostMessage(Handle, WM_MYEDIT_ENTER, 0, 0) ;
end;
 
procedure TForm1.Edit1Exit(Sender: TObject) ;
begin
 // ShowCaret(Edit1.Handle);
end;
 
procedure TForm1.Edit1Change(Sender: TObject) ;
begin
   HideCaret(Edit1.Handle);
end;
 
end.

Fortement inspiré de la solution de Whiler

[Whiler]

Fortement inspiré de la solution de Whiler

j'adore le bleu souligné

[Gilbert Geyer]

Variantes beaucoup plus simples pour enlever temporairement le curseur d'attente de frappe (le caret) d'un TEdit.

Si c'est pour empêcher la frappe : en basculant monEdit1.enabled à false tant que la frappe doit être empêchée ... et si le clignotement du caret gène, le faire disparaître simultanément en envoyant le focus ailleurs ... puis de re-basculer à l'inverse à partir du moment où la frappe est ré-autorisée.

(Je ne verrais pas l'intérêt d'enlever le caret sans neutraliser l'effet d'une frappe et la présence d'un caret dans un Edit neutralisé n'est pas une réelle gêne).

[Whiler]

[...]la présence d'un caret dans un Edit neutralisé n'est pas une réelle gêne).

Pour moi, si.. gêne visuelle... s'il est en readonly, le seul intérêt est pour sélectionner le texte... mais si on veut juste de l'affichage et qu'on a pas d'autre contrôle nécessitant le focus, c pas bô de voir clignoter son curseur pour rien...

Et le enable, ben ça peut également changer l'aspect (grisé).. donc pas beau non plus...

[Gilbert Geyer]

A Whiler :

Pour moi, si.. gêne visuelle... ... ... mais si on veut juste de l'affichage et qu'on a pas d'autre contrôle nécessitant le focus, c pas bô de voir clignoter son curseur pour rien...

Dans ce cas voiçi un truc qui marche : suffit de cacher un deuxième Edit sous la moquette et de lui passer le focus.

Essai concluant fait avec une Form1 comportant :
- monEditVisible,
- monEditRecouvert,
- lePanelMasque, (de même couleur que celle de la Form, et posé par-dessus monEditRecouvert),
- et une seule et unique ligne de code dans la procedure TForm1.monEditVisibleEnter(Sender: TObject) qui dit monEditRecouvert.setfocus et qui renvoie systématiquement le focus à l'Edit masqué même si on clique dans l'unique Edit visible ou que l'on utilse la touche Tab.

Puisque cela a marché sous D5/W98 cela devrait marcher sur une configuration plus récente.

[Whiler]

Ouais, belle feinte... j'la note