Mehrere Objecte gleiche ereignisse

yaster · Hält's aus hier Beiträge: 7 WIN 2000 D6 Prof

Auf meinem Formular habe ich 10 Labels als Buttons. Wenn ich nun auf einem Label Ereignisse (MouseMove, MouseDown, MouseUp, MouseLeave) ausführe ändert sich dieses Label, bei jedem Label sind die Änderungen gleich. Ich kann zwar über Copy/Past diese 40 Ereignisse erstellen, jedoch wird der Quelltext sehr unübersichtlich. Gibt es eine Möglich dieses zu vereinfachen, so dass ich pro Label nur noch einen Eintrag anstatt vier Einträgen hab?

Danke schon mal im Vorraus für euer Bemühen.

Gruß,
Peta

_________________
heute kommt nie wieder

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

Hallo!

Du weist den Labels einfach das gleiche Ereignis zu und musst dort den Parameter Sender benutzen, um die Labels zu "erkennen".

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.OnClick(sender:TObject);
begin
  TLabel(Sender).Caption:='Geklickt!';
end;

Cu,
Udontknow

yaster · Hält's aus hier Beiträge: 7 WIN 2000 D6 Prof

Funktioniert,

Danke!

Gruß,
Peta

_________________
heute kommt nie wieder

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme