hallo,
die gruppierung von toolbuttons wird fehlerhaft, wenn zur laufzeit zusätzliche toolbuttons erzeugt werden. der fehler ist immer der gleiche, egal ob 1 oder mehrere toolbuttons zusätzlich erzeugt werden (in der toolbar rechts angefügt): die markierungs-anzeige verrutscht um eine position nach links.
beispiel: 4 toolbuttons sind vorgegeben, toolbutton2 und toolbutton3 sind gruppiert (grouped=true, style=tbsCheck), was auch wunderbar funktioniert bis sie zur laufzeit erzeugte gesellschaft bekommen, zb einen toolbutton5, in der toolbar rechts von toolbutton4 eingefügt. dann ist nämlich nach klick auf toolbutton3 toolbutton2 markiert, nach klick auf toolbutton2 ist toolbutton1 markiert (obwohl der gar nicht gruppiert ist).
mit folgendem code füge ich ein:
Delphi-Quellcode:
MyToolbutton := TToolbutton.Create(form1);
MyToolbutton.Caption := 'nBook1';
MyToolbutton.Parent := toolbar1;
mytoolbutton.ImageIndex:=48;
mytoolbutton.name:='nBook01';
mytoolbutton.enabled:=true;
mytoolbutton.OnClick:=buttonClick;
with Toolbar1.BoundsRect do
mytoolbutton.SetBounds(Right, Top, mytoolbutton.Width, mytoolbutton.Height);
MyToolbutton.visible:=true;
wie kann ich den fehler vermeiden?
joseph_l