Discussion :

[kheldoun ahmed]

salut tt le monde,
comment je peux cacher le curseur sur mon edit?
merci a l'avance

[Bruno@Home]

le curseur souris ou le caret du TEdit ?
ShowCursor() ou HideCaret() ?

Bruno

[kheldoun ahmed]

le curseur souris ou le caret du TEdit ?
ShowCursor() ou HideCaret() ?

Bruno

merci pour ta reponse,
mais je veux cacher le curseur d'ecriture sur mon edit.
merci

[kheldoun ahmed]

merci pour ta reponse,
mais je veux cacher le curseur d'ecriture sur mon edit.
merci

Voici un code que je l'ai trouvé quelque part qui repond bien a mon pb.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.CapteMessage(var Msg: TMsg; var Handled: Boolean);
begin
    hidecaret(richedit1.handle);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
    application.OnMessage:=captemessage;
end;
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    hidecaret(richedit1.handle);
end;