скрыть

скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Скопировать, удалить, вставить в TWebBrowser




uses 
 ActiveX; 
  
// Copy the selected text to the clipboard 
procedure TForm1.Button7Click(Sender: TObject); 
begin 
  try 
    WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER); 
  except 
  end; 
end; 

// Cut the selected text 
procedure TForm1.Button8Click(Sender: TObject); 
begin 
  try 
    WebBrowser1.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER); 
  except 
  end; 
end; 

// Delete the selected text 
procedure TForm1.Button9Click(Sender: TObject); 
begin 
  try 
    WebBrowser1.ExecWB(OLECMDID_DELETE, OLECMDEXECOPT_PROMPTUSER); 
  except 
  end; 
end; 


initialization 
  OleInitialize(nil); 

finalization 
  OleUninitialize; 
end. 

// as of Internet Explorer 4





Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter