как отключить текстовый курсор в RichEdit'e

[Nemiroff]

мне нужно не защиту от копирования...просто у мну в RichEdit написан текст,который незя изменять (ReadOnly:=true), но можно его копировать, а раз нельзя изменять текст, то по логике зачем там текстовый курсор??
Вот именно этот текстовый курсор мне и нужно отключить

[JTG]

хм... ну и пусть бы себе там мигал
Ладно, хозяин-барин, типа сабклассинг чтоли?

unit Unit1;

interface

uses
  Windows, SysUtils, Classes, Graphics, Forms, Dialogs, StdCtrls, Controls, Messages;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    procedure MyRichEditWndProc(var msg: TMessage);
    procedure FormCreate(Sender: TObject);
  private
     { Private declarations }
  public
     { Public declarations }
  end;

var
  Form1: TForm1;
  OldRichEditWndProc : TWndMethod;

implementation

{$R *.DFM}

procedure TForm1.MyRichEditWndProc(var msg: TMessage);
begin
  OldRichEditWndProc(msg);
  if (msg.Msg = WM_PAINT) or (msg.Msg = WM_SETFOCUS) or (msg.Msg = WM_NCHITTEST) then HideCaret(RichEdit1.Handle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //только это тебе тож понадобится, как я понял RichEdit1.ReadOnly := True;
  OldRichEditWndProc := RichEdit1.WindowProc;
  RichEdit1.WindowProc := MyRichEditWndProc;
end;

end.

© СкопированоПравильно http://www.goldfaq.ru/lofiversion/index.php/t360.html

[Nemiroff]

Сообщение от JTG

хм... ну и пусть бы себе там мигал

Просто для чата...а то где отображаються сообщения, он там мигает,после например выделения,или мышкой тыркнул случайно, в общем как бы не в тему бы он там мигал. Всё работает, пасиб