Вверх ↑
Разработчик
Ответов: 26048
Рейтинг: 2110
#1: 2022-06-01 04:16:33 ЛС | профиль | цитата
На SVN это выглядит вот так:

procedure THIRadioButton._OnClick;
//var i:integer;
begin
{
for i := 0 to Control.Parent.ChildCount-1 do
if Control.Parent.Children[i].Style and BS_RADIOBUTTON > 0 then
SendMessage(Control.GetWindowHandle, BM_SETCHECK, BST_UNCHECKED, 0);

Control.SetChecked(true);
}
_hi_OnEvent(_event_onSelect);
end;
Я не знаю, откуда ты выдрал свой код, но компонент никто не менял с 2010 года.
карма: 22

0
Редактировалось 1 раз(а), последний 2022-06-01 04:19:19