TButton zur Laufzeit onClickk := MeineProzedur('test'); => Fehler

[DeddyH]

Den as-Vergleich braucht man nicht mehr, wenn man vorher mit is geprüft hat . Außerdem könnte man auch noch als 4. Möglichkeit die Instanz selbst abfragen. In dem Fall kann sogar die komplette Vorprüfung entfallen.

Delphi-Quellcode:

if not (Sender is TButton) then
    Exit;

  Button := TButton(Sender);
  if Button = ButtonWuppdi then

  //oder gleich
  if Sender = ButtonWuppdi then