Alle Buttons auf Form -> Enabled := FALSE ?

[HolgerCW]

OK,

aber wie kann ich jetzt alle auf einem TTabSheet (von dem ich nur den Namen weiss (String)) befindliche BitBtn enabled := TRUE setzen.

So wie in Deinem Code mache ich das ja für die ganze Form

Delphi-Quellcode:

var
 MeinTabSheet: TTabSheet;

...

MeinTabSheet := TTabSheet(FindComponent('TabSheet1'));

for I := 0 to MeinTabSheet.ComponentCount - 1 do

...

Bei For kommt die Zugriffsvereltzung ...

Gruss

Holger

[DeddyH]

FindComponent hat einen Rückgabewert, den man vlt. erstmal auswerten sollte.

[HolgerCW]

Ich habe es jetzt halbwegs rausgefunden.

So klappt es:

Delphi-Quellcode:

var 
MeinTabSheet: TTabSheet; 

... 

With Form1 do
begin

MeinTabSheet := TTabSheet(FindComponent('TabSheet1')); 

for I := 0 to MeinTabSheet.ComponentCount - 1 do 

...

Wie könnte ich dem "MeinTabSheet" die Form direkt mitgeben ?

Gruss

Holger

[HolgerCW]

... und irgendwie ist der CompnentCount bei einem TabSheet immer 0 ? Warum ? Mache ich was falsch ?

Auch wenn ich direkt:

Form1.TabSheet1.ComponentCount nehme, kommt dabei immer 0 raus. In der Struktur sieht man aber ganz klar, das dort auf dem TabSheet mehrere Componenten vorhanden sind ?

Gruss

Holger

[dominikkv]

Die Komponenten müsseten das TabSheet also Owner verwenden... sie verwenden es aber nur als Parent

[HolgerCW]

Hier ist die Lösung:

http://www.delphipraxis.net/internal...t.php?t=130137

Gruss

Holger