TBitBtn die Eigenschaft "ListIndex" geben???

[erich.wanker]

Hallo,

ich hab einen Quelltext bekommen (160 Units) in dem ein "TLMDSpeedButton" war - die jetzt nicht mehr verwendet werden darf.

Diese Button-Componente kommt SEHR oft vor und hat eine Eigenschaft "ListIndex" (Integer) - die im Quelltext sehr oft verwendet wird (if TLMDSpeedButton.Listindex = x then do ..)

ich hab jetzt in den *.pas und *.dfm files alle TLMDSpeedButton in TBitBtn umgeschrieben

Wie kann ich nun einen TBitBtn die Eigenschaft "ListIndex" geben?

Danke für Hinweise
LiGrü
Erich

[Klaus01]

.. was hat es denn mit dem ListIndex für eine Bewandnis?
Könnte anstelle dessen der "Tag" verwendet werden?

Ansonsten fällt mir nur noch Helper oder Ableiten ein.

Grüße
Klaus

[erich.wanker]

Danke für den Denkanstoß betreffend "tag" ....Leider ist der TAG Wert auch voll verwendet..

..aber ich könnte den ImageIndex verwenden

Werd ich mal ausprobieren

Danke

[DieDolly]

Zitat:

(if TLMDSpeedButton.Listindex = x then do ..)

Zitat:

Leider ist der TAG Wert auch voll verwendet..

Full House würde ich sagen. Da hat sich einer ja mal richtig Mühe gegeben, einen Quelltext / ein Programm so zu verunstalten, dass man es kaum noch reparieren kann ohne alles zu vernichten

[freimatz]

https://www.delphipraxis.net/96226-e...ommentare.html ist ja leider nur für Kommentare ...

Da fällt mir noch ein: man könnte doch auch noch HelpContext missbrauchen. Oder Eigenschaft "Name" jeweils ergänzen mit '_123' und zur Laufzeit dann den Unterstrich suchen und die Zahl herausholen.