drdavinci Posted October 28, 2012 Share Posted October 28, 2012 hi, I created TuniDBRadioGroup from TuniRadioGroup. But I received error at "Buttons[itemIndex].Focused". it is defined as property of TCustomRadioGroup in extctrl.pas I think, it is not defined in TuniRadioGroup. How Can I correct? bets regards. procedure TuniDBRadioGroup.SetValue(const Value: string); var WasFocused: Boolean; I, Index: Integer; begin if FValue <> Value then begin FInSetValue := True; try WasFocused := (ItemIndex > -1) and (Buttons[itemIndex].Focused); Index := -1; for I := 0 to Items.Count - 1 do if Value = GetButtonValue(I) then begin Index := I; Break; end; ItemIndex := Index; // Move the focus rect along with the selected index if WasFocused and (ItemIndex <> -1) then Buttons[itemIndex].SetFocus; finally FInSetValue := False; end; FValue := Value; Change; end; end; UniDBRadioGroup.rar Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now