Click(-Event) auf linken RichEdit-Rand?

[TStringlist]

Hallo zusammen,

hoffe meine Frage ist nicht zu speziell. Also, nachdem ich meinem RichEdit-Control mit den folgenden Zeilen...

Delphi-Quellcode:

(var rcWork : TRect;)

  with Richedit1 do begin
    SendMessage(Handle,EM_GETRECT,0,LongInt(@PageRect));
    rcWork.Left   := PageRect.Left + 5;  
    rcWork.Right  := PageRect.Right;
    rcWork.Top    := PageRect.Top;
    rcWork.Bottom := PageRect.Bottom;
    PageRect      := rcWork;
    SendMessage(Handle,EM_SETRECT,0,LongInt(@PageRect));
  end;

... einen kleinen zusätzlichen linken Rand verpasst habe, würde ich jetzt ganz gerne auch noch etwas die Reaktionen beim Daraufclicken auf eben diesen Rand abändern. Die normale Reaktion ist hier ja bei 1*Click: Markieren der Zeile (+ Aufspannmöglichkeit der Markierung über mehrere Zeilen); bei 2*Click: Markieren aller Zeilen.

Ich würde diese Ereignisse jetzt also gerne ändern und zwar bei 1*Click in: nur Positionieren des Cursors am Anfang der jeweiligen Zeile; bei 2*Click in: so wie bisher bei 1*Click; und bei 3*Click in: so wie bisher bei 2*Click.

Frage also: Gibt es für diesen Bereich vielleicht einen extra Eventhandler (+Pointer dazu) der dafür zuständig ist? (Mit OnMouseDown kann ich zwar feststellen, dass ich auf diesen Bereich geclickt habe, aber wie dann die Reaktionsweisen ändern?) Oder gibt es dafür sonst irgendwie eine Methode mit der man dieses einstellen kann?

Thx schonmal vorneweg.