Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.03 c
2-1178472336
Герасим
2007-05-06 21:25
2007.05.27
Работа со списком. Что к чему?


1-1175582214
kyn66
2007-04-03 10:36
2007.05.27
Многоэтажные строки DBGrigEh


2-1178569350
Malik
2007-05-08 00:22
2007.05.27
Собираю умные мысли....


2-1178895486
FIL-23
2007-05-11 18:58
2007.05.27
работа со шрифтами


2-1178748897
switch
2007-05-10 02:14
2007.05.27
Окно ввода пароля