Caret aus RichEdit entfernen, aber immernoch Markiern können

[Pseudemys Nelsoni]

Tag auch,

ich habe eine Komponente von TRichEdit abgeleitet und ihr folgendes hinzugefügt:

Delphi-Quellcode:

unit hi;

interface

uses
  Windows, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Messages;

type
  TBox = class(TRichEdit)
  private
    procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

constructor TBox.Create(AOwner: TComponent);
begin
  inherited;
  Cursor := crDefault;
end;

procedure TBox.WMSetFocus(var Msg: TWMSetFocus);
begin
  HideCaret(self.Handle);
  Msg.Result := 0;
end;

procedure Register;
begin
  RegisterComponents('PN', [TBox]);
end;

end.

so, wenn ich diese Komponente nun auf meiner Form platziere, das Programm starte und in das "neue" richedit klicke ist das Caret verschwunden - genau das was ich möchte....nur kann ich jetzt auch kein text mehr markieren. Hat jemand ne Idee was ich dagegen tun kann?