Редактирование в TWebBrowser
Ш-К © (2006-11-21 17:51:00)
Мне нужно чтобы при редактировании в 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:00) [1]
Ссылку не ту указал.
http://msdn.microsoft.com/workshop/browser/editing/usingeditingglyphs.asp
Наверх 
ЧАТ |
Орешник |
|
