Hallo liebe Leute,
seit Stunden suche ich eine Möglichkeit, ein TObject in ein Interface zu typecasten.
Ich habe für das Observer-Pattern eine Methode namens Aktualisieren, welche ein Objekt mitliefert.
Manchmal implementiert das mitgelieferte Objekt ein Interface (IFilterFrame), und dessen Methoden möchte ich dann gern ausführen:
Delphi-Quellcode:
{*
Observer-Methode.
}
procedure TFrameKundenliste.Aktualisieren(Sender: TObject);
var
FilterFrame: IFilterFrame;
begin
if Supports(Sender, IFilterFrame) then
begin
FilterFrame := (Sender as IFilterFrame); // <- Funktioniert nicht!
FilterFrame.DoSomething;
end;
Was ich auch probiert habe, es gibt nur Fehler.
Habt ihr vielleicht einen Tipp für mich?
Danke!
Andy