Delphi-Quellcode:
if not (Sender is TButton) then
Exit;
Button := Sender as TButton;
Wenn man schon mit
is
geprüft hat, ob ein Cast zulässig ist, kann man beherzt hart casten:
Button := TButton(Sender);
Gibt's eigentlich irgendwo eine Seite, die das gut erklärt, damit man was zum Verlinken hat?