Hey ;D,

wenn ich ein Control habe ( in dem Fall 2 Buttons ) und verweise beide auf die selbe Procedure und will nun in einem Label anzeigen, ob von Button1 oder von Button2 gesendet worden ist. Ich möchte aber nicht "If Sender = ..." denn das werden recht viele Buttons ;D Also sozusagen so:


Label1.Caption := DIE_FUNKTION(Sender);

Recht einfach, sogar ohne FUNKTION

Den Button bekommst du, indem du Sender in TButton castest. Und jedes Control weiß ja, wie es heißt:



So kommst du auch an alle anderen Eigenschaften von TButton ran.

OMG da hät ich auch selbst drauf kommen können^^ danke ;D

EDIT:// Es gibt doch noch ein Problem :

Ich habe auf meiner Form ca. 20-30 Textboxen. Ihr Name beginnt mit "sv_" wie kann ich denn jetzt einen nach der anderen durchgehen? Und den vollständigen Namen anzeigen?

Kleiner Hinweis vielleicht noch, ist mir nach dem Absenden noch eingefallen: falls es sein kann, dass das Ereignis nicht nur von Buttons aufgerufen wird, sollte man noch testen, ob denn der Sender überhaupt ein Button ist:

Der as-Operator macht das zwar intern, wirft dann aber eben eine Exception, wenns nicht passt.

Nano-Ware hat folgendes geschrieben :

Ich habe auf meiner Form ca. 20-30 Textboxen. Ihr Name beginnt mit "sv_" wie kann ich denn jetzt einen nach der anderen durchgehen? Und den vollständigen Namen anzeigen?

FindComponent