HiAsm

Ответов: 838

Рейтинг: 4

#1: 2007-07-07 22:05:59 ЛС | профиль | цитата

Yuriy, открой исходник компонента, найди там следующее:

procedure ThiRadioButtonEx._work_doSelect;
begin
   //Control.Checked := ReadBool(_Data);
   SendMessage(Control.Handle,BM_CLICK,0,0);
end;

и преврати это в

procedure ThiRadioButtonEx._work_doSelect;
begin
   Control.Checked := ReadBool(_Data);
   //SendMessage(Control.Handle,BM_CLICK,0,0);
end;

и будет тебе счастье...

карма: 0

Coder