Buscar

Copiar texto selecionado do TWebBrowser

Código

//inclua ClipBrd

var
  S: Variant;
  Str: String;
begin
  S := WebBrowser1.Document;
  Str := S.Selection.createRange().text;
  Clipboard.AsText := Str;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 11/10/10
Por: Mazin
Visualizada: 5933 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009