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:

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:

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.

[WIng2005]

Hallo Gemeinde,

was müßte man anpassen, wenn die Buttons alle auf einem Notebook liegen und nur die, der aktiven Seite verändert werden sollen?
Im meinem Fall sind es Edits, die in Abhängigkeit einer Combobox enable:=true bzw. eben false zugewiesen bekommen sollen.
Dabei soll jedoch nur die aktive Seite betrachtet werden.

MFG
Steffen

[mkinzler]

Ich würde dann eher ein PageControl einsetzen

[WIng2005]

Mmmh, das ist ein wenig spät...
MFG
Steffen

[RavenIV]

Du könntest auch mal einen anderen Weg gehen.
Falls alle Buttons immer gleichzeitig enabled / disabled werden sollen, dann:
- eine TAction definieren
- allen Buttons diese TAction zuweisen
- nur immer diese Action enablen / disabeln
- dann werden automatisch alle Buttons angepasst.

[WIng2005]

Hört sich zumindest schonmal gut an. Bisher habe ich noch nicht mit TAction gearbeitet...schaue es mir mal
an. Vielen Dank...

MFG
Steffen

[WIng2005]

OK...geht so nicht. Die Buttons erwähnte ich nur, um mich in den Thread "einzugliedern".
Tatsächlich handelt es sich (wie oben geschrieben) um Edits, welchen ich kein TAction zuweisen kann.

MFG
Steffen

[RavenIV]

Zitat:

Zitat von WIng2005

OK...geht so nicht. Die Buttons erwähnte ich nur, um mich in den Thread "einzugliedern".
Tatsächlich handelt es sich (wie oben geschrieben) um Edits, welchen ich kein TAction zuweisen kann.

Hab ich ja auch nicht behauptet, dass es bei TEdit geht.

Meine Antwort war für das "Hauptthema" des Threads gedacht.
Dass DU es zweckentfremden willst, bzw uns falsche Infos gibst, ist DEIN Problem.

[WIng2005]

Sollte kein Vorwurf sein...
Ich wußte nur vorher nicht, dass bei der Lösungssuche der Unterschied zw. Buttons und Edits
zum Problem wird. Wollte deshalb nun nicht extra nen neuen Thread aufmachen...

MFG
Steffen