URL with Ctrl in RichView

[monsoon]

In a read-only editor, hypertext works automatically, without Ctrl. Only when editing, it requires pressing and holding Ctrl.

Whether it is possible to make, that pressing and holding Ctrl work in a RichView?

[Sergey Tkachenko]

I do not completely understand your question.

In TRichView and read-only TRichViewEdit, hypertext always work, even without pressing Ctrl.
In editable TRichViewEdit, hypertext works with Ctrl (if rvoCtrlJumps in EditorOptions).

[monsoon]

I do not completely understand your question.

In TRichView and read-only TRichViewEdit, hypertext always work, even without pressing Ctrl.
In editable TRichViewEdit, hypertext works with Ctrl (if rvoCtrlJumps in EditorOptions).

It is necessary for me, that in TRichView hypertext works only with Ctrl and don't work without Ctrl

[Sergey Tkachenko]

Sorry, there are no ways to disable hypertext in TRichView.
You can only prevent executing any link if Ctrl is not pressed.
In OnJump event:

Code: Select all

procedure TForm1.RichView1Jump(Sender: TObject; id: Integer);
var KeyboardState: TKeyboardState;
begin
  GetKeyboardState(KeyboardState);
  if KeyboardState[VK_CONTROL] and $80 = 0 then
    exit;
  <process hyperlink click here>
end;

[monsoon]

Sorry, I add in event OnJump function GetKeyState for Ctrl and now it's all work

[monsoon]

Your answer almost same.
Thanks for help.