OnChange bei programmierten Komponenten?

[hobbyloser]

Wow! Danke. Du bist der Held.
Hab vorher noch nie viel mit Sendern zu tun gehabt.
Grüsse und gute Nacht

[Hazardos]

Mahlzeit!!
Ich habe im Grunde das Gleiche Problem. Nur, dass ich jetzt die Procedure aufrufen kann.
Jetzt möchte ich allerdings wissen, welches objekt die Procedure aufgerufen hat, damit ich diese Komponente verändern kann.

Problem(e) :
50 Labels erstellen
OnMouseMove-Procedure zuweisen
Aufrufende Komponente rot färben

Ich hoffe ihr könnt mir hier weiterhelfen...

[Honie]

Mit self bekommst Du einen Pointer auf die aufrufende Instanz

[Hazardos]

bei dieser Methode färbt er gleich alle rot... wie kann ich das verhindern??
dazu muss man wissen, dass ich ein doppeltes array von labeln, welche ich zur laufzeit aufrufe benutze...
Als caption und name hat er 'Form1', obwohl ich den Labels einen Zahlenwert zugewiesen habe.

[Honie]

ok - meine Antwort war nicht ganz richtig, da self in diesem Fall die Form zurückliefert,
da es ja eine Methode der Form und nicht der Komponente ist

Also, nimm self und caste das nach TLabel.

(sender as TLabel).Color := clRed;

innerhalb der OnMouseOver Methode.

Sorry

Höflichkeitshalber vorher mit

if sender is TLabel then

überprüfen.