Sowas würde gehen, auch wenn in Sender ein Edit übergeben wurde:
Delphi-Quellcode:
procedure Foo(Sender: TObject);
begin
TButton(Sender).Caption := 'Hello';
end;
weil sowohl Button als auch TEdit über die Eigenschaft Caption verfügen aber die Typen eigentlich nicht zuweisungskompatibel sind.
Bei
(Sender as TButton).Caption := 'Hello';
wird zur Laufzeit eine EInvalidCast
Exception geraised.
Willst du ganz sicher gehen, müsstest du sowas machen:
Delphi-Quellcode:
if Sender is TButton then
TButton(Sender).Caption := 'Hello';
@Himi: Supports ist für Interfaces und hat mit dem as Operator eigtl nix zu tun, du kannst as nichtmal mit einem Interface benutzen, allerhöchstens eine Interface Variable wieder auf eine Klasse umcasten geht mit Delphi 2010.