|
Автор: Ralph Friedman
На форме я имею группу радиокнопок. Я хотел бы вызывать
контекстно-зависимую подсказку, если пользователь нажал 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;
|
|
Группа радиокнопок и ActiveControl