|
<< Нажмите, чтобы показать Содержание >> TCustomRichViewEdit.OnPaste |
Позволяет вставлять данные из буфера обмена в нестандартных форматах, либо запретить вставку.
type
TRVPasteEvent =
procedure (Sender: TCustomRichViewEdit;
var DoDefault: Boolean) of object;
property OnPaste: TRVPasteEvent;
Происходит перед вставкой данных из буфера обмена (методом Paste, или Ctrl + V ( ⌘ + V в macOS) / Shift + Insert ).
Позволяет вставлять данные из буфера обмена в нестандартных форматах, либо запретить вставку (установите DoDefault в False).
Примечание: см метод Paste для описания того, какие форматы вставляются и с каким приоритетом.
Пример (разрешение вставки только одной строки простого текста):
procedure TMyForm.MyRichViewEditPaste(Sender: TCustomRichViewEdit;
var DoDefault: Boolean);
var s: String;
begin
s := Clipboard.AsText;
if (Pos(#10,s)=0) and (Pos(#13,s)=0) then
MyRichViewEdit.InsertText(s,False);
DoDefault := False;
end;
См. также: