Typecast Error by Sender As TWhatever

[mirage228]

Zitat von sirius:

Name ist doch von TComponent abgeleitet.
Also:

Delphi-Quellcode:

var tmp:string;
begin
  tmp:=(Sender as TComponent).Name;
  if ((sender is TBitBtn) and (tmp='xyz1'))or
     ((sender is TBitBtn) and (tmp='xyz2'))or
     ...
  then

Stimmt, so gehts auch. Wenn die Methode auch von nicht-TComponent-Ableitungen aufgerufen wird, müsste man da allerdings noch eine zusätzliche Prüfung einbauen.
Ahja, wenn er sich nur für den Namen interessiert, kann man die Abfrage ob das Objekt ein TBitBtn ist auch weglassen