Discussion :

[sanqara]

Comment éliminer le curseur dans sur un TEdit ?

[qi130]

Si tu n'as pas besoin de pouvoir saisir dans l'afficheur, tu peux le mettre disable.

[Philippe Gormand]

Explique un peu mieux.

L'afficheur est il le TEdit de saisie ? Je suppose que oui !
Veux tu afficher le résultat d'un calcul dans le TEdit ? Si oui, tu auras toujours le curseur.
Tu peux utiliser un TLabel ou un TsaticText pour afficher le résultat sans curseur.

A+

[sanqara]

Merci à tous les deux.

[Matt2094]

Cloture le sujet par un Résolu ...

[Philippe Gormand]

Juste un petit détail.

qi130 a écrit :

Si tu n'as pas besoin de pouvoir saisir dans l'afficheur, tu peux le mettre disable.

En ce cas, le texte apparaitra grisé.

Un autre truc, qui n'empeche pas le SetFocus, mais qui empeche toute saisie.

Code :

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

1
2
3
4
5
 
procedure Tform1.Edit1KeyPressed(Sender : TObject);
begin
     Key := #0;
end;

Ou encore

Code :

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

1
2
3
4
5
 
procedure Tform1.Edit1KeyPressed(Sender : TObject);
begin
     If SaisieInterdite Then Key := #0;
end;

Bon courage.

J'ai quelques trucs du genre sur mon site WEB. Tu peux aller voir.

[Philippe Gormand]

Pardon, juste une petite erreur.

Code :

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

1
2
3
4
5
 
procedure TForm1.Edit1Keypressed(Sender : TObject, Var Key : Char);
begin
     Key := #0;
end;

Ou encore :

Code :

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

1
2
3
4
5
 
procedure TForm1.Edit1Keypressed(Sender : TObject, Var Key : Char);
begin
     If SaisieInterdite Then Key := #0;
end;

[OutOfRange]

Une autre solution consisterait à créer un curseur "vide" à l'aide de l'éditeur d'images de l'EDI et de l'affecter à ton TEdit...
Je n'ai pas essayé mais je pense que ça doit marcher
Mais ça doit pas être là le pb parce que je ne vois vraiment pas pourquoi on aurait besoin de faire ça...

Bonne prog