Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   неформатированный текст из буфера в TWebBrowser? (https://forum.antichat.xyz/showthread.php?t=55414)

elemental 09.12.2007 21:30

неформатированный текст из буфера в TWebBrowser?
 
как вставить неформатированный текст из буфера в TWebBrowser который переведен в режим редактирования?
и при этом как заменить событие вставки Ctrl+V в этом компоненте своим событием?
след. код. вставляет форматированный текст, а мне нужен простой (без тэгов и прочего)

Код:

function GetStringFromClipboard: WideString;
var  Data: THandle;
begin
if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
Result := Clipboard.AsText
else begin
Clipboard.Open;
Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
try
if Data <> 0 then
Result := PWideChar(GlobalLock(Data))
else
Result := '';
finally
if Data <> 0 then
GlobalUnlock(Data);
Clipboard.Close;
end;
end;
end;

применение:

Код:

Range := (editor.selection.createRange as IHTMLTxtRange); 
range.execCommand('Paste', false, getstringfromclipboard);

спасибо

elemental 25.12.2007 14:01

окей, уже с сабжем разобрался.
помогите теперь, как перекрыть событие CTRL+V (вставка из буфера) в компоненту TWebBrowser?


Время: 07:24