Главная страница
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.069 c
15-1178043909
IMHO
2007-05-01 22:25
2007.05.27
MS Word and background image


15-1176885879
pogi
2007-04-18 12:44
2007.05.27
Вакансия: Проектировщик-программист Delphi


2-1178698444
Zahadum
2007-05-09 12:14
2007.05.27
Несколько вопросов по Memo


15-1177467150
Slider007
2007-04-25 06:12
2007.05.27
С днем рождения ! 25 апреля


3-1173777363
Bk
2007-03-13 12:16
2007.05.27
FIBPlus - выдать список таблиц из БД