Hallo,
das Ganze ist eigentlich ziemlich einfach (aber mit einigen Schweinereien verbunden):
Delphi-Quellcode:
procedure Eintragen(Objekt: IMyInterface);
begin
cmbTest.AddObject('Test', Pointer(Objekt));
end;
Delphi-Quellcode:
var
Intf: IInterface;
begin
Intf := IInterface(Pointer(cmbDatenbank.Items.Objects[cmbDatenbank.ItemIndex]);
if Supports(Intf, IMyInterface, dbcs) then
dbcs.DoSomething;
end;
Man sollte aber beachten, dass dabei die Referenzzählung den Bach runter geht.
Gruß
xaromz