Hallo,
ich habe eine Init Methode für mein Tabsheet erstellt:
Delphi-Quellcode:
procedure TFrmPruefungenGUI.InitTabVorbereitung;
var
I: Integer;
begin
for I := 0 to tabVorbereitung.ControlCount - 1 do
begin
if tabVorbereitung.Controls[I] is TbsSkinCheckRadioBox then
begin
(tabVorbereitung.Controls[I] as TbsSkinCheckRadioBox).checked := False;
end;
if tabVorbereitung.Controls[I] is TProgressBar then
begin
(tabVorbereitung.Controls[I] as TProgressBar).Position := 0;
end;
end;
edt24Volt.Text := '';
edt5Volt.Text := '';
end;
Hat auch alles funktioniert, die Radioboxen wurden unchecked und die Progressbar sind auf Position 0 gegangen.
Jetzt musste ich allerdings die Radioboxen auf jeweils ein eigenes Panel legen, d.h. jetzt erreiche ich die Checkboxen nicht mehr über das iterieren des Tabpanels.
Wie kann ich dass denn elegant lösen, ohne sowetwas machen zu müssen:
Delphi-Quellcode:
panel1.rb1.checked :=False;
//...
Zur not müsste ich über alle Panels iterieren, aber dann kann ich ja gleich es so machen wie oben,...
Danke schonmal
Gruß
DM