[kolli]

как добавить в TMyBrowser новое свойство?
*******************************************
добавляем в TMyBrowser новое свойство

TMyBrowser = class(TWebBrowser, IDispatch)
function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
private
FLoadImages: Boolean;
published
LoadImages: Boolean read FLoadImages write FLoadImages; default False;
end;


и изменяем немного обработчик

function TMyBrowser.Invoke(DispID: Integer; const IID: TGUID;
LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
ArgErr: Pointer): HResult;
begin
if DispID = DISPID_AMBIENT_DLCONTROL
then begin
TVarData(VarResult^).VType := VT_I4;
if FLoadImages then TVarData(VarResult^).VInteger := DLCTL_DLIMAGES
else TVarData(VarResult^).VInteger := 0;
Result:= S_OK;
end
else Result:= inherited Invoke(DispID, IID, LocaleID, Flags, Params, VarResult, ExcepInfo, ArgErr)
end;


Перекомпилируешь dclusr.dpk и у твоего MyBrowser появится свойство LoadImages
Пример обработки
begin
MyBrowser1.LoadImages := True;
end;
************************************************** ***