В примере показано как получить доступ к отдельным элементам компонента TRadioGroup.

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

TRadioButton(RadioGroup1.Controls[1]).Enabled := False;

end;

 

При перемещении фокуса ввода клавишей Tab чтобы переместить его в RadioGroup нужно нажать клавишу Tab дважды если какой нибудь пункт RadioGroup уже выбран, но только один раз если не выбран. Можно ли сделать поведение RadioGroup логичным?

 

Установка свойства RadioGroup'ы TabStop в false должна решить эту проблему - поскольку клавиша tab будет продолжать работать - перемещаясь сразу на выделенный пункт RadioGroup.

Как заставить GroupBox1 прорисовать на форме свой Caption неактивным цветом? GroupBox1.Enabled:=FALSE не помогает. Хотя если то же самое проделать с Label1 или Edit1, то все получается.

Code:

GroupBox1.Font.color:=clInactiveCaption;

 

Автор: Гавриш Дмитрий