Alle Buttons auf Form -> Enabled := FALSE ?

[HolgerCW]

Hallo zusammen,

wie kann ich alle Buttons auf einer Form -> Enabled := FALSE machen ?

Hierbei:

Delphi-Quellcode:

var
 TBit: TBitBtn;
...
//Alle Buttons enabled = FALSE
For I := 0 to FormTerMaS.ComponentCount - 1 do
begin

 if AnsiLowerCase(FormTerMaS.Components[I].ClassName) = AnsiLowerCase('TBitBtn') then
 begin

  TBit := TBitBtn(FindComponent(FormTerMaS.Components[I].Name));
  TBit.enabled := FALSE;

 end;

end;

... macht er bei "TBit.enabled := FALSE;" einen Fehler mit Zugriffsverletzung ...

Was muss ich tuen ?

Gruss

Holger

[mkinzler]

Delphi-Quellcode:

 if FindComponent(FormTerMaS.Components[I].Name) is TBitButton then 
   (FindComponent(FormTerMaS.Components[I].Name) as TBitButton).Enabled := False;

[inherited]

Müsste auch ohne Name und FindComponent gehen.

Delphi-Quellcode:

for i := 0 to MyForm.ComponentCount-1 do
  if MyForm.Components[i] is TBitBtn then
    (MyForm.Components[i] as TBitBtn).Enabled:=false;

[HolgerCW]

Vielen dank an euch beide.

Der obere Code funktioniert nicht (auch bei Austausch von BitButton gegen BitBtn).

Der untere klappt super.

Gruss

Holger

[HolgerCW]

Jetzt bräuchte ich aber doch die funktion des ersten Codes. Habe nun den Namen des Objectes und möchte nur dieses Enabled := TRUE setzen.

Nur funktioniert das ja oben nicht ?

Gruss

holger

[inherited]

Dafür sollte eigentlich FindComponent genau das richtige tun

Delphi-Quellcode:

FindComponent('irgendein string, zB Edit1')

liefert dir ein TObject, heißt dein Button also zB BitBtn1, müsste

Delphi-Quellcode:

(FindComponent('BitBtn1') as TBitBtn).Enabled:=false;

funktionieren.

Wenn du viele BitBtn hast, wäre es aber vielleicht besser die in einem Array zu verwalten oder gleich eine Containerklasse zu schreiben, die dir das Verwaltet, denn FindComponent ist ineffektiv.

[HolgerCW]

Vielen dank,

jetzt noch das letzte:

Ich möchte auf einer Form ein TabSheet finden und auf diesem TabSheet alle BitnBtn enabled := TRUE setzen ?

Gruss

Holger

[DeddyH]

Nimm den Source von inherited (#3) und ersetze MyForm durch den Namen des Tabsheets.

[HolgerCW]

Dann habe ich aber wieder das anfangsproblem:

Delphi-Quellcode:

var
 TSheet: TTabSheet;

...

TSheet := (FindComponent('TabSheet1') as TTabSheet);

for I := 0 to TSheet.ComponentCount - 1 do
begin

 if TSheet.Components[I] is TBitBtn then
   (TSheet.Components[I] as TBitBtn).Enabled := TRUE;

end;

... Zugriffsverletzung kommt dann bei for ...

Gruss

Holger

[SirThornberry]

Zitat:

Zitat von inherited

Müsste auch ohne Name und FindComponent gehen.

Delphi-Quellcode:

for i := 0 to MyForm.ComponentCount-1 do
  if MyForm.Components[i] is TBitBtn then
    (MyForm.Components[i] as TBitBtn).Enabled:=false;

ein kleiner "Schönheitsfehler". Durch den Cast mit "as" wird intern nochmal geprüft ob der Typ richtig ist. Da mit "is" das aber schon geprüft wurde kann ein harter Cast verwendet werden:

Delphi-Quellcode:

for i := 0 to MyForm.ComponentCount-1 do
  if MyForm.Components[i] is TBitBtn then
    TBitBtn(MyForm.Components[i]).Enabled:=false;