Delphi-Quellcode:
Btn, item: TButton;
i, x: Integer;
Folgender Code funktioniert einwandfrei..
Delphi-Quellcode:
for i:= 1 to 46 do
begin
Btn := TButton(Form1.FindComponent('TBXButton'+IntToStr(i)));
if Btn <> NIL then Btn.Enabled:= True;
end;
Der folgende jedoch unter der Meldung, dass TButton und TTBXItem inkompatibel sind, nicht.
Delphi-Quellcode:
for x:= 1 to 5 do
begin
item := TTBXItem(Form1.FindComponent('TBXItem'+IntToStr(x)));
if item <> NIL then item.Enabled:= True;
end;
Was ist da falsch
