зависимую подсказку, если пользователь нажал
Группа радиокнопок и 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]
Содержание раздела