WebBrowser n�o permite copiar

Question

Estou com o problema de n�o poder copiar o texto das p�ginas apresentadas no TWebBrowser. Algu�m sabe como fa�o para contornar este problema?  Outro problema � que preciso setar o focus em um edit da ...

Eag · Answer

Parte do problema pode ser resolvido da seguinte forma.

No evento DocumentComplete do TWebBrowser � poss�vel salvar o documento carregado no navegador.

Segue abaixo um exemplo.

procedure TFrm_Pri.WEBDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := Web.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
if PersistFile <> nil then
PersistFile.Save(StringToOleStr(nomedoarquivoasersalvo.htm), True);
end;

Quanto a segunda parte do problema eu n�o sei como te ajudar.

Rodc · Answer

At� a� tudo bem, o problema � que o USU�RIO precisa fazer a c�pia. Ser� que � uma restri��o do componente n�o poder copiar ou � apenas falta de configurar alguma op��o?...

Eag · Answer

O usu�rio pode copiar o texto normalmente como no internet explorer mesmo pq o TwebBrowser utiliza as dlls do internet explorer para funcionar. Se vc n�o tiver definido nada na propriedade popup o mesmo chamar� o popup padr�o do internet explorer com as possibilidades de imprimir, salvar, copiar, exibir c�digo fonte, etc.
O ideal seria vc procurar alguma documenta��o das Apis do internet explorer para obter algum recurso a mais do padr�o.

Rodc · Answer

Achei a solu��o. Por padr�o o TWebBrowser n�o permite copiar nada. Pode dar quantos CTRL-C que quizer q vc n�o vai conseguir copiar.
Mas se usar a UNIT [b:464c1e0843]Activex [/b:464c1e0843]e rodar a linha abaixo...
[b:464c1e0843]OleInitialize(nil);[/b:464c1e0843]
... ent�o o WebBrowser passa a permitir a c�pia do texto.
Agrade�o sua ajuda e se algu�m precisar fazer um Brower no Delphi vc j� sabe como liberar o CTRL-C, blz!?

F�rum WebBrowser n�o permite copiar #204602