Frage zum "is"-Operator

[QStorm]

Zitat von Sir Rufo:

Delphi-Quellcode:

var
  LWinControl : TWinControl;

if Assigned( Self.ActiveControl ) and ( Self.ActiveControl is TWinControl ) then
begin
  LWinControl := Self.ActiveControl as TWinControl;
  ...
end

Das funktioniert leider nicht, da "Self.ActiveControl is TWinControl" True zurück liefert, obwohl das Objekt, auf das "Self.ActiveControl" zeigt, nicht kompatible zu TWinControl ist.