Главная страница
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.043 c
15-1177400793
oxffff
2007-04-24 11:46
2007.05.27
QX6800 был избит K10


3-1173596390
Ulugbek
2007-03-11 09:59
2007.05.27
Помогите с задачкой RFT файлом


2-1178544704
Inna_Z
2007-05-07 17:31
2007.05.27
Как узнать версию InterBase?


8-1158154178
Lockdog
2006-09-13 17:29
2007.05.27
Определение цвета и преобразование палитры


15-1177485819
TCrash
2007-04-25 11:23
2007.05.27
документация по MS VisualStudio 7