In der
Unit AxCtrls gibt es:
Delphi-Quellcode:
function GetDispatchPropValue(Disp: IDispatch; DispID: Integer): OleVariant;
procedure SetDispatchPropValue(Disp: IDispatch; DispID: Integer; const Value: OleVariant);
Wenn du die DispID kennst (lässt sich ja leicht nachschauen):
Delphi-Quellcode:
var
objekt : OleVariant;
if GetDispatchPropValue(object, 41) = 'test ' then ...
Ich dachte, dass ich mal ähnliche Funktionen wie oben im der
VCL gefunden habe, bei denen anstelle der
DispID das Property als String übergeben wird; finde die Stelle aber nicht mehr :-/