Button.Enabled := True (Sehr oft...)

[Tommy1988]

Hallo,
ich habe folgenden Beispielcode:

Delphi-Quellcode:

TBXButton1.Enabled := True;
TBXButton3.Enabled := True;
TBXButton2.Enabled := True;
TBXButton9.Enabled := True;
TBXButton4.Enabled := True;
TBXButton5.Enabled := True;
TBXButton6.Enabled := True;

Gibt es die Möglichkeit, DIESE Buttons in EINER Anweisung zu "Enablen"?

[Matze]

Hallo,

suche mal nach FindComponent.

[mkinzler]

In einer nicht aber du kannst eine Schleife nehmen und dann mit .FindComponent per Namen suchen und Eigenschaft setzen.

[hoika]

Hallo,

Delphi-Quellcode:

Btn: TButton;
i  : Integer;

for i:= 1 to Viele do
begin
  Btn:= TButton(FindComponent('TBXButton'+IntToStr(i)));
  if Btn<>NIL then Btn.Enabled:= True;
end;

Heiko

[mirage228]

Wenn Du diese Prozedur öfters ausführst, wäre es sinnvoller die Buttons einmal mit FindComponent zu suchen und dann einer TObjectList oder einem Array hinzuzufügen und bei weiteren durchläufen letztere(s) zu benutzen. Bei vielen Aufrufen wird das um einiges schneller sein, als jedes mal FindComponent aufzurufen.

mfG
mirage228

[DeddyH]

Genau, oder das Components-Array einmalig durchlaufen und prüfen, ob es sich um eine der zu ändernden Komponenten handelt.

[hathor]

Delphi-Quellcode:

var
 a: array [1,2,3,4,5,6,9] of Integer;
 i: Integer;

for I:=0 to ControlCount-1 do
  if Controls[I] is TButton and i is in a then // nicht getestet !
  TButton(Controls[I]).Enabled:=true;

[SirTwist]

Zitat von Tommy1988:

Gibt es die Möglichkeit, DIESE Buttons in EINER Anweisung zu "Enablen"?

Es gibt eine Freeware-Komponente EnableGroupbox. Wenn man bei dieser Komponente das Enable-Flag setzt/löscht überträgt sich das auf alle enthaltene Komponenten. Die Orginalkomponente ist von einer Groupbox abgeleitet, aber das kann man sich relativ leicht auf ein Panel umstricken.

Vielleicht hilft Dir das ja weiter.

Gruß,
SirTwist

[hathor]

Delphi-Quellcode:

procedure TForm1.EnableGroupBox(AGroupBox: TGroupBox;
                                                     Enable: Boolean);
var
  i: Integer;
begin
  with AGroupBox do
  begin
    Enabled := Enable;
    For i := 0 to ControlCount - 1 do
      Controls[i].Enabled := Enable;
  end;
end;

[sirius]

Zitat von SirTwist:

Es gibt eine Freeware-Komponente EnableGroupbox. Wenn man bei dieser Komponente das Enable-Flag setzt/löscht überträgt sich das auf alle enthaltene Komponenten.

Man kann auch gleich das Panel aus der VCL nehmen.