1

Есть RadioGroup. Пытался сделать TabStop := false, но именно на этом элементе не помогает, а на остальных работает, то есть по нажатию на кнопку tab все равно фокусируется на RadioGroup1.

1 ответ 1

3

Свойство RadioGroup.TabStop относится к самой радиогруппе, но не к кнопкам, что расположены на ней. А вот у кнопок поведение интересное: каждая кнопка имеет своё свойство TabStop, которое изменяется автоматически. Логика изменения такая - если кнопка отмечена (стоит точка), то у этой кнопки свойство TabStop устанавливается в True, а всем остальным кнопкам в этой группе, оно сбрасывается в False.

Чтобы изменить это автоматическое поведение, нужно в рантайме, в событии OnClick у радиогруппы, вручную сбросить свойство TabStop для всех кнопок:

procedure TForm1.rg1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to rg1.Items.Count - 1 do begin
    rg1.Buttons[I].TabStop := False;
  end;
end;

Если при создании формы у вас есть какая-то кнопка отмеченная по умолчанию, такой сброс нужно делать и в OnShow этой формы. Поэтому, чтобы код не дублировался, лучше его вынести в отдельный метод, вроде ResetTabStop и дёргать его из RadioGroup.OnClick и Form.OnShow.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.