Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Редактирование в TWebBrowser   Найти похожие ветки 

← →
Ш-К   (2006-11-21 17:51) [0]

Мне нужно чтобы при редактировании в TWebBrowser отображались Editing Glyphs.
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/properties/theatermode.asp

Никак не могу включить этот режим.
Делаю так (часто кода из TEmbeddedWB):

procedure TmyWB.InvokeCMD(InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant);
var
  CmdTarget: IOleCommandTarget;
  PtrGUID: PGUID;
begin
  New(PtrGUID);
  if InvokeIE then
     PtrGUID^ := CLSID_WebBrowser
  else
     PtrGuid := PGUID(nil);
  if Document <> nil then
     try
        Document.QueryInterface(IOleCommandTarget, CmdTarget);
        if CmdTarget <> nil then
           try
              CmdTarget.Exec(PtrGuid, Value1, Value2, vaIn, vaOut);
           finally
              CmdTarget._Release;
           end;
     except
     end;
  Dispose(PtrGUID);
end;

procedure TmyWB.ShowAllTags;
var
  vaIn, vaOut: OleVariant;
begin
  InvokeCmd(False, IDM_SHOWALLTAGS , OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
end;

Предварительно делаю designMode := "On".
Никакого эфекта.
Как включить режим Editing Glyphs?

---

← →
Ш-К   (2006-11-21 17:59) [1]

Ссылку не ту указал.
http://msdn.microsoft.com/workshop/browser/editing/usingeditingglyphs.asp

---

Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.046 c