Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2007, 11:46   #1
element
Пользователь
 
Регистрация: 08.11.2007
Сообщений: 21
По умолчанию неформатированный текст из буфера в 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);

сорри, наверное не туда запостил..

Последний раз редактировалось element; 09.12.2007 в 11:52.
element вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
печать из буфера Марксист Общие вопросы Delphi 2 28.07.2008 14:00
Twebbrowser нет возможностии скопирывать текст в буфер. Yuran Работа с сетью в Delphi 4 24.05.2008 12:33
Как извлечь текст из буфера в строку? Brother Win Api 3 13.11.2007 20:19
TWebBorwser - страничка из буфера OrdJONY Работа с сетью в Delphi 6 09.11.2007 18:56