Typecast von TObject zum Interface?

[cruiser]

Rein theoretisch müsste das gehn...

Delphi-Quellcode:

procedure TFrameKundenliste.Aktualisieren(Sender: TObject);
var
  FilterFrame: IFilterFrame;
begin
  if Supports(Sender, IFilterFrame, FilterFrame) then
    FilterFrame.DoSomething;

{...}