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?

[sniper_w]

Vielleicht bei einem OnMouseDown Event ShowCaret( -- entsprechende Hadle -- ) aufrufen und wieder bie OnMouseUp HideCaret.....Es ist nur ein Vorschlag, ob das geht......keine Ahnung.

[Pseudemys Nelsoni]

hallo sniper,

ich möchte ja das das caret nie gesehen wird, auch nicht wenn die maus unten ist. :\ Aber text markieren möchte ich dennoch

[toms]

Ist das RichEdit readonly ?

[Pseudemys Nelsoni]

jo und hide selection auf false

[toms]

Koenntest ja eine Webbrowser Komponente nehmen.
Und den Text dortdrin darstellen.
Dann Hast du kein Caret mehr aber kannst dennoch den Text markieren.

[Pseudemys Nelsoni]

Moin toms,

ich muss schon ein RichEdit nehmen, da ich den Rest für dieses bereits "gecodet" hab und das wäre dann umsonst gewesen ;(. Irgendwie muss man den text ja markieren können, wenn ich hidecaret nicht ausführe gehts ja auch

[Pseudemys Nelsoni]

^^^^^^^^^^^^^^

[Pseudemys Nelsoni]

immernoch nicht gelöst, pls help =)

[Pseudemys Nelsoni]

^^^^