Einzelnen Beitrag anzeigen

slm

Registriert seit: 22. Jul 2005
35 Beiträge
 
Delphi 7 Personal
 
#5

Re: scrollbox -> radiobuttons aktivieren

  Alt 12. Aug 2005, 23:00
@ marabu

ich danke dir für deine antwort habs immer noch nicht hinbekommen, mit deiner lösung
da bin ich noch absoluter anfänger

ich brauche das für ein programm mit mehreren büchern die aus vielen html seiten bestehen
die radiobuttons sind die kapitel, da das ganze einheitlich aussehen soll und ich nach anraten hier keine scrolleiste in radiogoups einbauen kann (wahrscheinlich ist es schon möglich ) kann ich keine radiogroups benutzen da die bücher
nicht die gleiche anzahl an kapitel haben. deshalb scrollbox mit radiobuttons

dachte nicht das es so kompliziert ist.




da ist das ja leichter

und die buttons sind in ner scrollbox gut das es kein os/2 ist

procedure TForm3.JvBitBtn1Click(Sender: TObject);
begin
begin if radiobutton2.Checked then radiobutton1.Checked:=true;
begin if radiobutton3.Checked then radiobutton2.Checked:=true; end;
begin if radiobutton4.Checked then radiobutton3.Checked:=true; end;
begin if radiobutton5.Checked then radiobutton4.Checked:=true; end;
begin if radiobutton6.Checked then radiobutton5.Checked:=true; end;
begin if radiobutton7.Checked then radiobutton6.Checked:=true; end;
begin if radiobutton8.Checked then radiobutton7.Checked:=true; end;
begin if radiobutton9.Checked then radiobutton8.Checked:=true; end;
begin if radiobutton10.Checked then radiobutton9.Checked:=true; end;
begin if radiobutton11.Checked then radiobutton10.Checked:=true; end;
begin if radiobutton12.Checked then radiobutton11.Checked:=true; end;
begin if radiobutton13.Checked then radiobutton12.Checked:=true; end;
begin if radiobutton14.Checked then radiobutton13.Checked:=true; end;
begin if radiobutton15.Checked then radiobutton14.Checked:=true; end;
begin if radiobutton16.Checked then radiobutton15.Checked:=true; end;
begin if radiobutton17.Checked then radiobutton16.Checked:=true; end;
begin if radiobutton18.Checked then radiobutton17.Checked:=true; end;
begin if radiobutton19.Checked then radiobutton18.Checked:=true; end;
begin if radiobutton20.Checked then radiobutton19.Checked:=true; end;
begin if radiobutton21.Checked then radiobutton20.Checked:=true; end;
begin if radiobutton22.Checked then radiobutton21.Checked:=true; end;
begin if radiobutton23.Checked then radiobutton22.Checked:=true; end;
begin if radiobutton24.Checked then radiobutton23.Checked:=true; end;
begin if radiobutton25.Checked then radiobutton24.Checked:=true; end;
begin if radiobutton26.Checked then radiobutton25.Checked:=true; end;
begin if radiobutton27.Checked then radiobutton26.Checked:=true; end;
begin if radiobutton28.Checked then radiobutton27.Checked:=true; end;
begin if radiobutton29.Checked then radiobutton28.Checked:=true; end;
begin if radiobutton30.Checked then radiobutton29.Checked:=true; end;
begin if radiobutton31.Checked then radiobutton30.Checked:=true; end;
end;


ich dachte ich kann das hier bisschen komprimieren aber das das so kompliziert wird buh
es ist nicht dynamisch und sieht nicht gut aus aber was solls

irgendwie krieg ich keine sätze mehr zusammen glaube bin müde

dank marabu dem könig
man darauf muss man mal zuerst kommen
respekt

mfg slm
  Mit Zitat antworten Zitat