mehrere comboboxen auf enabled

[SaFu]

mosche

kann mir kurz jemand helfen steh auf dem schlauch :stupid:

Delphi-Quellcode:

procedure TForm13.CheckBox1Click(Sender: TObject);
Var x: integer;
begin
 if CheckBox1.Checked = True then
   begin
    repeat;
     inc(x);
      ComboBox[x].Enabled:= True;
    until x < 29 ;

   end;

wollte 29 comboboxen auf Enabled:= True stellen;

gruss Sascha

[mkinzler]

Entweder Referenzen auf die ComboBoxen in einem Array organisieren, dann gehts wie du geschrieben hast oder halt per .FindComponent:

Delphi-Quellcode:

(FindComponent( 'Combobox'+IntToStr(x)) as TComponent).Enabled := True;

[s-off]

Hallo,

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   i: Integer;
Begin
   For i := 0 To ComponentCount - 1 Do Begin
      If Components[i] Is TComboBox Then
         TComboBox(Components[i]).Enabled := Not TComboBox(Components[i]).Enabled;
   End;
End;

[SaFu]

Danke

Zitat:

Zitat von mkinzler

Entweder Referenzen auf die ComboBoxen in einem Array organisieren, dann gehts wie du geschrieben hast oder halt per .FindComponent:

Delphi-Quellcode:

(FindComponent( 'Combobox'+IntToStr(x)) as TComponent).Enabled := True;

die eigenschaft enabled gibts bei der version aber nicht

[mkinzler]

Okay dann so:

Delphi-Quellcode:

(FindComponent( 'Combobox'+IntToStr(x)) as TComboBox).Enabled := True;

[Neutral General]

Zitat:

Zitat von fuknersascha

Danke

Zitat:

Zitat von mkinzler

Entweder Referenzen auf die ComboBoxen in einem Array organisieren, dann gehts wie du geschrieben hast oder halt per .FindComponent:

Delphi-Quellcode:

(FindComponent( 'Combobox'+IntToStr(x)) as TComponent).Enabled := True;

die eigenschaft enabled gibts bei der version aber nicht

musst halt auf TComboBox oder so casten.

:arrow:

Delphi-Quellcode:

FindComponent('Combobox'+IntToStr(x)) as TComboBox)Enabled := True;

[s-off]

Zitat:

Zitat von fuknersascha

die eigenschaft enabled gibts bei der version aber nicht

Hey, ich habe Dir oben ein voll funktionsfähiges Beispiel geliefert. Warum benutzt Du das nicht einfach?
Oder musst Du das nur auf bestimmte ComboBoxen anwenden?

[SaFu]

ah jetzt hab ich den unterschied gesehen

Zitat:

Zitat von s-off

Zitat:

Zitat von fuknersascha

die eigenschaft enabled gibts bei der version aber nicht

Hey, ich habe Dir oben ein voll funktionsfähiges Beispiel geliefert. Warum benutzt Du das nicht einfach?
Oder musst Du das nur auf bestimmte ComboBoxen anwenden?

ne funktioniert wunderbar aber ich wollte nur mal sehen wo der unterschied ist und habe alles beide mal ausprobiert interessiert mich ja auch

danke euch