Comment changer l'apparence du curseur dans un TRichEdit

Bonjour à tous !

Je désirerais savoir si quelqu'un sait comment changer l'apparence du curseur dans un RicheEdit. En effet, je désirerais remplacer le curseur habituel par un autre de mon choix. Je ne parle pas du pointeur de la souris mais bel et bien du curseur.

Je remercie d'avance tous ceux qui sauront me fournir le renseignement.

Bonne continuation à tous. :)

Je ne sais quel type de Pascal votre question concerne (Delphi, Lazarus, ...) ni quel OS, mais voici éventuellement un début de réponse ...

Je ne suis pas sûr que Lazarus permette de faire ce genre de chose (mais je reconnais que je ne connais pas les composants concernés -RichEdit ou RichMemo-).

Il est cependant possible de faire ce genre de chose sous Windows, en utilisant directement les API de Windows: cf. (lien en anglais) https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Ce qui donne -ce n'est qu'un exemple écrit très rapidement- pour un composant plus "classique" tel qu'un TMemo:

Code suivante pour une forme "Form1" avec un TButton "Button1", création dynamique d'un composant TMemo modifié pour avoir un "caret" noir et plus épais.

Code:

---

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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

unit Unit1;   {$mode objfpc}{$H+}   interface   uses Classes, SysUtils, Forms, Controls, StdCtrls, Windows;   type TMyMemo = class(TMemo) protected procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS; procedure WMKillFocus(var Msg: TWMKillFocus); message WM_KILLFOCUS; end;   type   { TForm1 }   TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private MyMemo: TMyMemo; end;   var Form1: TForm1;   implementation   {$R *.lfm}   { TForm1 }   procedure TForm1.FormCreate(Sender: TObject); begin MyMemo := TMyMemo.Create(Self); MyMemo.SetBounds(10, 10, 200, 150); MyMemo.Parent := Self; end;   procedure TForm1.Button1Click(Sender: TObject); begin Application.Terminate; end;   procedure TMyMemo.WMSetFocus(var Msg: TWMSetFocus); begin inherited; CreateCaret(Handle, HBITMAP(0), 10, 20); ShowCaret(Handle); end;   procedure TMyMemo.WMKillFocus(var Msg: TWMKillFocus); begin inherited; DestroyCaret(); end;   end.

---

Pièce jointe 335132

Bonjour,

Je vous remercie de vos renseignements. Cependant, j'utilise Delphi 7 dans une machine virtuelle sous Windows 10. J'ai installé Windows 7 dans la machine virtuelle. Je vous remercie donc pour votre code. Cependant, ce dernier est trop compliqué pour moi. Vous utilisez des choses qui ne figurent pas dans l'aide de Delphi. Si j'utilisais votre code, j'aurais la sensation de ne pas être l'auteur de mon application. De plus, je ne comprends rien au code que vous m'indiquez.

Je désirerais quelque chose de plus simple (je suis débutant en programmation). Si vous ou quelqu'un d'autre avez des renseignements plus faciles à comprendre et à intégrer à mon application, je vous en remercie vivement. Je continue donc de poser ma question au sujet du curseur. Si ce sujet n'est pas résolu, ce n'est pas bien grave. Je vais poster une autre discussion qui concerne davantage un autre souci que j'ai avec les paragraphes.

Je voudrais préciser que j'utilise un composant semblable au TRichEdit mais de la bibliothèque JVCL et qui s'appelle JVRichEdit. Dans un précédent post j'avais indiqué que ce composant permet l'intégration d'images à l'inverse de TRichEdit qui ne le permet pas.

Merci encore d'être intervenu. Je vous souhaite une agréable journée !:D

Citation:

---

Envoyé par orca29

Je vous remercie de vos renseignements. Cependant, j'utilise Delphi 7 dans une machine virtuelle sous Windows 10. J'ai installé Windows 7 dans la machine virtuelle. Je vous remercie donc pour votre code. Cependant, ce dernier est trop compliqué pour moi. Vous utilisez des choses qui ne figurent pas dans l'aide de Delphi. Si j'utilisais votre code, j'aurais la sensation de ne pas être l'auteur de mon application. De plus, je ne comprends rien au code que vous m'indiquez.

---

Le "curseur" dont vous parlez est un "Caret" dans le monde Windows, que ce soit un TRichEdit ou un TJVRichEdit, c'est toujours le même composant de Windows qui est utilisé. Delphi ne dessine pas le RichEdit c'est Windows qui s'en charge et le "curseur" est lui aussi géré par Windows, il faut donc s'adresser à Windows pour pouvoir intervenir dessus. L'interaction Delphi/Windows se fait via des méthodes "message", ici "WMSetFocus" et des appels à l'API Windows "CreateCaret", "ShowCaret". C'est le seul moyen de faire, mais c'est probablement le seul moyen dans toute application Windows quelque soit le langage.