2 verschiedene Objektklassen in einen Funktionsaufruf einbi

[Hellcat]

Hi Leute!

Folgendes Problem: Ich hab eine Funktion, die sowohl von einem MouseDown-Event auf einem Panel als auch einem Label aufgerufen werden soll (abhängig davon worauf man klickt). Ist so was machbar?


Meine Funktionsdeklaration sieht aus wie folgt:

procedure Farbewechseln (Sender: TPanel; Button: TMousebutton);

[Christian Seehase]

Moin Hellcat,

es genügt eigentlich schon, wenn die verschiedenen Objekte sich selbst als Parameter übergeben. Damit das funktioniert genügt es eigentlich einen Parameter vom Typ TObject für die gemeinsam zu nutzende Funktion zu übergeben. Die Funktion kann dann, mit Hilfe von "as" prüfen, von welchem Typ der Parameter ist, und sich entsprechend verhalten.