Советы по Delphi

         

зависимую подсказку, если пользователь нажал


Группа радиокнопок и ActiveControl На форме я имею группу радиокнопок. Я хотел бы вызывать контекстно- зависимую подсказку, если пользователь нажал F1. Для данной конкретной группы радиокнопок я установил HelpContext равным 22, но при любом вызове ActiveControl.HelpContext это возвращает (0). Все другие элементы управления работают как положено. Что я делаю неправильно?

Нет. Проблема в том, что ActiveControl - RadioButton, а не RadioButtonGroup. Поместите следующий код в обработчик события формы OnShow, он должен решить вашу проблему:

    procedure TForm1.FormShow(Sender: TObject); var c: integer; begin with RadioGroup1 do begin for c := 0 to ControlCount - 1 do TRadioButton(Controls[c]).HelpContext := HelpContext; end; end;
- Ralph Friedman [001004]


Содержание раздела