<< Нажмите, чтобы показать Содержание >> TCustomRichViewEdit.OnBeforeOleDrop, OnAfterOleDrop [VCL и LCL]

События перетаскивания OLE (drag&drop). Они происходят, когда пользователь завершает операцию перетаскивания данных в редактор. Эти события вызываются до и после вставки.

property OnBeforeOleDrop: TNotifyEvent;

property OnBeforeOleDrop: TNotifyEvent;

Когда редактор принимает перетаскиваемые данные, выполняется следующая последовательность действий:

1.событие OnBeforeOleDrop

2.вставка данных (при этом может произойти событие OnOleDrop)

3.событие OnAfterOleDrop

Эти события можно использовать для инициализации и завершения вставки данных в результате OLE drag&drop.

Пример

В этом примере используются RichViewActions.

На форме размещён MyRVAControlPanel: TRVAControlPanel. Компонент для загрузки данных из Интернета назначен свойству MyRVAControlPanel.DownloadInterface, чтобы разрешить загрузку удалённых изображений и CSS-файлов, на которые ссылаются вставляемые данные (RTF или URL).

procedure TMyForm.MyRichViewEditBeforeOleDrop(Sender: TObject);
begin
  MyRVAControlPanel.InitImportPicturesAndFiles(nil,
    (Sender as TCustomRichViewEdit));
end;
procedure TForm3.RichViewEdit1AfterOleDrop(Sender: TObject);
begin
  MyRVAControlPanel.DoneImportPicturesAndFiles(
    (Sender as TCustomRichViewEdit));
end;

 

См. также:

▪Перетаскивание данных;