Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

Caret aus RichEdit entfernen, aber immernoch Markiern können

  Alt 5. Feb 2005, 07:52
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?
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat