Re: Selecting mode after double clic

Return to index

Author

Message

Sergey Tkachenko

Posted: 01/09/2005 20:17:31

Hi,

It's because this messagebox "eats" mouse-up message, and TRichView thinks

that you continue making selection.

Workaround:

procedure TForm3.RichViewEdit1RVMouseDown(Sender: TCustomRichView;

  Button: TMouseButton; Shift: TShiftState; ItemNo, X, Y: Integer);

var RVData: TCustomRVFormattedData;

    AX, AY, AItemNo, AOffs: Integer;

begin

  if (ssLeft in Shift) and (ssDouble in Shift) then begin

    ShowMessage('Double click');

    PostMessage(TCustomRichViewEdit(Sender).TopLevelEditor.Handle,

      WM_LBUTTONUP, 0, MakeLong(X,Y));

  end;

end;

>

> Hi Sergey,

>

> I'm showing a message after double clicking on a text item in RichViewEdit

> but when I come back to the editor is stays in selecting mode and if I

move

> the cursor everything gets selected until I click down. How can I avoid

this

> ?

>

> procedure TForm1.rveDblClick(Sender: TObject);

> begin

>   ShowMessage('Double click');

> end;

>

> Regarding my previous question about table row selection options

rvtoRowSelect

> and rvtoColSelect worked fine, but I had to add them manually. They don't

> seem to be default options.

>

> Thanks,

>

> Albert