Как програмно дважды кликнуть в RichEdit?

[apromix]

Никак не получается обработать событие для RichEdit, в Мемо двойной щелчек мышью обрабатывается, а в RichEdit - нет. Как сделать, чтобы был?? Очень надо...

[SERG1980]

procedure TForm2.RichEdit1DblClick(Sender: TObject);
begin
showmessage ('Двойной клик')
end;

вроде всё работает

[Stilet]

вроде всё работает

Вроде у РичЭдита нет обработчика OnDblClick...

[SERG1980]

Пробовал в делфи2006. В делфи7 нет

[_SERGEYX_]

Чтобы не мучиться возьми какой-нибудь другой RichEdit. Например, из Raize. Там есть DblClick

[apromix]

Нда, у меня как раз 7 Дельфи Кто подскажет, как реализовать? Это нужно для редактора, чтоб по двойному клику на слове он делал анализ слова и нужное действие...

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

Чтобы не мучиться возьми какой-нибудь другой RichEdit. Например, из Raize. Там есть DblClick

Где взять этот компонент? Он в стандартной поставке Дельфи есть?

[Stilet]

Нет Raize можно из инета скачать

Правда DBLClick можно как обработчик сообщения прикрутить...

[apromix]

Правда DBLClick можно как обработчик сообщения прикрутить...

И как это сделать?

[SERG1980]

В библиотеке RXLib есть двойной клик в ричэдите

[Stilet]

И как это сделать?

Как всегда - очень просто )

unit Unit1;

interface

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

type
  TRichEdit = class(ComCtrls.TRichEdit)
   procedure prc(var m:TWMLButtonDblClk); message WM_LButtonDblClk;
  end;

  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TRichEdit }

procedure TRichEdit.prc(var m: TWMLButtonDblClk);
begin
caption:=caption+'ok';
end;

end.