Comboboxname auf variable speichern

[markus lemcke]

Hallo,

ich habe ein PageControl mit mehreren reitern!
auf jedem reiter sind kompoenenten zum beispiel comboboxen! wenn ich jetzt einmal abfrage welcher reiter aktiv ist und und den namen der entsprechenden comboboxen auf variablen speichere wie spreche ich dann die comboboxen an? geht das überhaupt?
von welchem typ muss die variable sein?

Gruß

Markus

[Frank Reim]

Hi Marcus,
wenn du den Namen der ComboBox speicherst, dann kannst du die ComboBox mit FindComponent ansprechen -
TComboBox(FindComponent(ComponentName))
- in diesem Fall ist die Variable ComponentName ein String.
Du kannst die ComboBox aber auch direkt in einer Variable vom Typ TComboBox speichern.
Es kommt darauf an, was du erreichen willst.
Gruß, Fran

[markus lemcke]

hi frank,

habe es so gemacht:
<pre>
...
var
VCbxLieferanten,VCbxHauptgruppen,VCbxUntergruppe : TCombobox;
<b>begin</b>
VCbxLieferanten := nil;
VCbxHauptgruppen := nil;
VCbxUntergruppe := nil;
VLabelUntergruppe := nil;

<b>if</b> PageControl1.ActivePage = PageFuchsMovesa <b>then</b>
<b>begin</b>
VCbxLieferanten := CbxLieferantenFuchs;
VCbxHauptgruppen := CbxHauptgruppenFuchs;
VCbxUntergruppe := CbxUntergruppeFuchs;
VLabelUntergruppe := LblUntergruppeFuchs;
<b>end;</b>

<b>if</b> PageControl1.ActivePage = PageOfrag <b>then</b>
<b>begin</b>
VCbxLieferanten := CbxLieferantenOfrag;
VCbxHauptgruppen := CbxHauptgruppenOfrag;
VCbxUntergruppe := CbxUntergruppenOfrag;
VLabelUntergruppe := LblUntergruppeOfrag;
<b>end;</b>

<b>end;</b>
</pre>

Gruß

Marku