Главная страница
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.046 c
2-1178467571
Malik
2007-05-06 20:06
2007.05.27
TMemo


2-1178558763
Dik59
2007-05-07 21:26
2007.05.27
Настройки Delphi?


1-1175146436
fishka
2007-03-29 09:33
2007.05.27
Увеличение размера при выводе на принтер Excel-файла


15-1177510866
Juice
2007-04-25 18:21
2007.05.27
Подскажите как сделать такой интерфейс?


15-1177586869
homm
2007-04-26 15:27
2007.05.27
«Архитектура вразрез» © В. Кладов