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]

^^^^

[toms]

Gibt wohl keine einfache Loesung dafuer, wenn ueberhaupt eine fuer TRichEdit.
(Microsoft Control)

Moeglichkeiten: Ein solches RichEdit nachprogrammieren mit dem gewuenschten Verhalten
oder meinen Vorschlag umsetzen.

[Niko]

Hi,

deine Methode den Cursor auszublenden funktioniert nicht - oder zuminsedt nicht so, wie du denkst :wink: .

Probier mal aus was passiert, wenn du in deiner Behandlung für WMSetFocus den HideCaret-Aufruf weglässt: Es wird trotzdem kein Cursor dargestellt. Mit deiner eigenen Routine klaust du dem RichEdit die WMSetFocus-Botschaft, somit weiß es nicht, das es den Fokus erhalten hat, stellt offensichtlich deshalb auch keinen Cursor dar und ist auch nicht in der Lage eine Markierung vozunehmen. Rufst du in deiner Botschaftsbehandlung inherited auf funktioniert auch das Markieren wieder. Dummerweise ist der Cursor dann aber auch wieder zu sehen.

[Pseudemys Nelsoni]

hmmmmm....jo, stimmt....

aber man muss doch den Caret irgendwie ausblenden können....

oder anders: wenn ich WM SETFOCUS abfange... wie kann ich dann noch text markieren?

[Pseudemys Nelsoni]

^^^^