|
<< Нажмите, чтобы показать Содержание >> TCustomRichView.OnJump |
Происходит, когда пользователь нажимает на гипертекстовый элемент.
type
TJumpEvent = procedure(Sender: TObject; id: Integer) of object;
property OnJump: TJumpEvent;
Параметр:
id – это идентификатор гипертекстовой ссылки (первая ссылка в документе имеет id=FirstJumpNo, следующая ссылка – id=FirstJumpNo+1 и так далее).
В редакторе эта нумерация доступна только при работе в режиме гипертекста:
▪когда пользователь удерживает клавишу Ctrl (см. EditorOptions) до тех пор пока она не отпущена, или документ не изменён, или фокус ввода не переходит из редактора;
▪если ReadOnly=True.
Таким образом, при использовании этого события в редакторе, все действия, использующие id, следует выполнять до любых действий, изменяющих документ или перемещающих фокус за пределы редактора.
В TRichView это событие также можно инициировать с помощью клавиатуры, если TabNavigation<>rvtnNone. Пользователь использует клавишу Tab для выделения гиперссылки, а затем Enter для её активации (для вызова этого события).
Пример:
procedure TMyForm.MyRichViewJump(Sender: TObject; id: Integer);
var ItemNo: Integer;
RVData: TCustomRVFormattedData;
s: String;
begin
MyRichView.GetJumpPointLocation(id, RVData, ItemNo);
s := RVData.GetItemTag(ItemNo);
Application.MessageBox(PChar(s), 'Ссылка', MB_OK or MB_ICONINFORMATION);
end;
См. также события:
См. также: