Zitat von
Bernhard Geyer:
Aber mir ist im Moment nicht klar was ich tun muß damit das
ActiveX-Control mitbekommt das mein
TPanel dieses Interface implementiert. Reicht es aus das ich.
Ja, das müsste eigentlich reichen.
Alles, was von
TComponent abgeleitet wird, hat potentiell schon das Interface IUnknown.
Das Interface IHTMLDocument2 wird ja über
QueryInterface abgerufen:
Delphi-Quellcode:
function TComponent.QueryInterface(const IID: TGUID; out Obj): HResult;
begin //*
if FVCLComObject = nil then
begin
if GetInterface(IID, Obj) then Result := S_OK
else Result := E_NOINTERFACE
end
else
Result := IVCLComObject(FVCLComObject).QueryInterface(IID, Obj);
end;
Du könntest mal versuchen, bei //* ein Breakpoint zu setzen und nachzuschauen, welche IID abgefragt wird. (mit Debug-
DCU's kompilieren)