webBrowser如何利用ExecWB來進行Past貼上的動作呢 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiNetwork/html/delphi_20061126005932254.html
WebBrowser1.ExecWB(OLECMDID_past,OLECMDEXECOPT_DODEFAULT,EmptyParam,EmptyParam) ;
想要在第三個textarea 貼上資料，不利移動滑鼠來選擇位置的話
要如何貼上呢?
procedure TForm1.WebBrowser1.DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
Var O,H:Olevariant;
Begin
o := WebBrowser1.oleobject.document.all.item('textareaName',0); //找到内容
o.value :=SendContent;
End;
这样是不是简单一点呢？？