Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Dynamisch erstellte TComboBoxen: Bei OnChange Wert ermitteln (https://www.delphipraxis.net/44951-dynamisch-erstellte-tcomboboxen-bei-onchange-wert-ermitteln.html)

Mamphil 27. Apr 2005 13:11


Dynamisch erstellte TComboBoxen: Bei OnChange Wert ermitteln
 
Hallo!

Ich habe folgendes Szenario:
In einem Frame erstelle ich dynamisch eine Liste mit ComboBoxen (csDropDownList). Diese Comboboxen sind alle identisch. Ihnen ist für das Event "onChange" eine Funktion zugeordnet, die auch problemlos aufgerufen wird.

In dieser Funktion benötige ich jetzt den Wert (bzw. die Nummer des Item) der gerade geänderten Combobox. (Wie) Ist das möglich?

Ich bedanke mich im Voraus für die Hilfe!
Mamphil

Jens Schumann 27. Apr 2005 13:16

Re: Dynamisch erstellte TComboBoxen: Bei OnChange Wert ermit
 
Hallo,
mit TComboBox(Sender).ItemsIndex

Mamphil 27. Apr 2005 13:24

Re: Dynamisch erstellte TComboBoxen: Bei OnChange Wert ermit
 
Hi!

Vielen Dank für die schnelle Antwort!
Zitat:

Zitat von Jens Schumann
Hallo,
mit TComboBox(Sender).ItemsIndex

So verwende ich also das Sender... Genial - und wenn man's kennt auch genial einfach :)

Das funktioniert so wunderbar. Und nur für's Protokoll (bzw. für die Suche): Es heißt ItemIndex und nicht ItemsIndex ;)

Nochmal vielen Dank!
Mamphil

Bernhard Geyer 27. Apr 2005 13:28

Re: Dynamisch erstellte TComboBoxen: Bei OnChange Wert ermit
 
Sicherer ist aber:

Delphi-Quellcode:
if Sender is TComboBox then
  (Sender as TComboBox).ItemIndex;
Hier kracht es nicht, falls diesem Eventhandler ein anderes Control als TComboBox zugewiesen wurde.

Mamphil 27. Apr 2005 13:59

Re: Dynamisch erstellte TComboBoxen: Bei OnChange Wert ermit
 
Zitat:

Zitat von Bernhard Geyer
Sicherer ist aber:

Danke für den Hinweis. Ich hab's jetzt so gelöst:
Delphi-Quellcode:
  if (Sender is TComboBox) = false then
    exit;
Mamphil


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:17 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz