0

我有 IE 9 和 Delphi XE2。我正在执行 IDM_Replace 以在 twebbrowser 中显示 mshtml 可编辑内容的替换对话框。对话框打开,但上面没有任何内容。它是空白的。

IDM_FIND 命令正常工作。有什么问题?

编辑显示代码

  execidmcommand_out(IDM_replace); // does work but shows blank dialog

  execidmcommand_out(IDM_Find); // Works fine and so does other idm commands



procedure TForm2.execidmcommand_out(const command: Integer);
var
  Target: IOleCommandTarget;
  Valin, Valout: OleVariant;
  PtrGUID: PGUID;
outdoc2:ihtmldocument2;
begin

outdoc2:=webbrowser1.document as ihtmldocument2;

  outdoc2.QueryInterface(IID_IOleCommandTarget, Target);
  New(PtrGUID);
  PtrGUID^ := CGID_MSHTML;
//   Valin := 1;
  Target.Exec(PtrGUID, command, 0, Valin, Valout);
  Dispose(PtrGUID);
end;
4

0 回答 0