Alternative zu onClick?!

[sascha_maass]

Hi!

Habe folgendes Problem:
Ich habe 30 Buttons dynamisch erstellt und alle sollen dieselbe Prozedur aufrufen, lediglich andere Parameter übergeben. Wie mache ich das am kürzesten?!

Die Antwort liegt wahrscheinlich vor mir, aber ich seh sie nit ;)


thx!

sascha

[brechi]

kommt auf den parameter an

also d kannst jedem button die das gleiche onclick ereignis im objektinspektor geben und im der prozedur selber kannste über den Sender rasufinden welcher button geklickt wurde

z.b.:
form1.caption := (Sender as TButton).caption;

[bttb930]

was für parameter?

[Olli]

Kleiner Top: OnClick hat auch einen Parameter Namens Sender ... den kannst du zur Unterscheidung benutzen. Dann kannst du die gleiche OnClick-Methode allen Buttons zuweisen ;)

[sascha_maass]

Zitat:

Zitat von Olli

Kleiner Top: OnClick hat auch einen Parameter Namens Sender ... den kannst du zur Unterscheidung benutzen. Dann kannst du die gleiche OnClick-Methode allen Buttons zuweisen ;)

das hört sich jo super an!
und in sender steht dann der name des buttons? seh ich das richtig?

[sascha_maass]

funzt! grandiose sache :)

dickes merci an alle!

gruß, sascha

[Olli]

Soweit ich weiß, haben Buttons eine Property "Tag". Dort kannst du einen Integer speichern (schon im Formdesigner), der dann zur Unterscheidung dient. Ist weit effektiver als über den Namen zu vergleichen.

Code:

Stores an integer value as part of a component. 

property Tag: Longint;

Description

Tag has no predefined meaning. The Tag property is provided for the convenience of storing additional integer value or pointer information for special needs in an application. For example, use the Tag property when implementing case statements with a component.

Achso ... und du kannst dann CASE benutzen, statt IF ...

[Glühwürmchen]

... und wenn Du diesen TAG noch binär ausliest mit logischen verknüpfungen dann kriegst Du da massig Infos rein...

[BlackJack]

Zitat:

Zitat von Glühwürmchen

... und wenn Du diesen TAG noch binär ausliest mit logischen verknüpfungen dann kriegst Du da massig Infos rein...

ja, ungefähr 2^32 infos, genauso viele wie in einen Integer ;D

[Olli]

Zitat:

Zitat von Glühwürmchen

... und wenn Du diesen TAG noch binär ausliest mit logischen verknüpfungen dann kriegst Du da massig Infos rein...

Was meinst du mit Binär? Als Bitmaske? Dann hast du recht. Aber wer verbietet dir einen Integer normal zu nutzen? :gruebel:

[Glühwürmchen]

Verbieten tut mir das natürlich keiner.

Was ich meinte versuche ich mal an folgendem Beispiel zu erklären:

Ich habe eine EingabeMaske mit 5 verschiedenen Editfeldern. Es sit wichtig, daß die eingegebenen Werte bestimmte Kriterien erfüllen. Dies kann jedoch erst getestet werden, wenn alle 5 Felder gefüllt wurden.
Nun gibt es eine FehlerSuchFunktion die sich die FeldInhalte ansieht und zurückgibt, welche Felder fehlerhaft sind.

Würde diese Information über eine normale Integerzahl zurückgegeben, gäbe es 2^5 (= 32) verschiedene Möglichkeiten, was diese Integerzahl bedeuten könnte. Die Funktion zum auswerten dieser Integerzahl müßte also eine case-Abfrage über 32 verschiedene Zahlen starten.
Unangenehm wird es, wenn die EingabeMaske 30 Felder hat....

Schneller und leichter geht es mit einer binär codierten Info:
Jedem Eingabefeld wird eine binäre Zahl zugewiesen:
ErrorInEdit1 = 1; ErrorInEdit2 = 2; ErrorInEdit3 = 4; ErrorInEdit4 = 8; ErrorInEdit5 = 16.
Der FehlerWert der jetzt zurückkommen kann hat ebenfalls den maximalen Wert von 31 (inkl. Null sind das 32 Werte) aber durch die binäre Auswertung, komme ich bereits nach 5 Abfragen an alle Informationen, die ich benötige.
Bei einer EingabeMaske mit 30 Feldern brauche 30 Abfragen.

[Luckie]

Und was hat das jetzt bitte mit dem Ursprungsthema zu tun?

[Glühwürmchen]

Daß ich auf diese Art und Weise in der Eigenschaft "Tag" eine ganze Menge mehr Informationen rein geben kann, als nur eine einzige Nummer.