HideCaret

[Pseudemys Nelsoni]

Moin,

ich versuche gerade ein Caret in einem RichEdit zu verstecken und zwar habe ich eine Komponente abgeleitet die bis jetzt erst so aussieht:

Delphi-Quellcode:

unit pbIRCChatBox;

interface

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

type
  TpbIRCChatBox = class(TRichEdit)
  private
    FHideCaret: Boolean;
    procedure OnFocus(var Msg: TMessage); message WM_SETFOCUS;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property HideCaret: Boolean read FHideCaret write FHideCaret;
  end;

procedure Register;

implementation

constructor TpbIRCChatBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FHideCaret := True;
end;

procedure TpbIRCChatBox.OnFocus(var Msg: TMessage);
begin
  inherited;
  if HideCaret then
    Windows.HideCaret(Handle);
end;

procedure Register;
begin
  RegisterComponents('PB', [TpbIRCChatBox]);
end;

end.

Nur irgendwie hat das keine Wirkung, das Caret ist immernoch da obwohl ich HideCaret aufrufe! Wenn ich das inherited weglasse ist der Caret zwar weg, aber dann wird das HideCaret auch nicht benötigt, weil der caret nie kreiert wird... aber wer weiss was im WM_SETFOCUS noch passiert als das caret zu kreieren....also muss ich das wohl benutzen oder?

Jemand ne idee?