Цитата:
|
Сообщение от YVitaliy
А может дело в этой строке:
Код:
PostMessage(Handle,WM_User+1001,TForm(AOwner).Color,0);
а именно в . Если кинешь на панель, то aOwner явно не будет TForm. Попробуй например
Код:
(aOwner as TControl).Сolor или в этом роде. А Parent определяется сам в конструкторе. |
да похоже дело было в пост мессадж, и да TForm(AOwner) не корректно, но TControl(AOwner).Color не работает потому что свойство protected (delphi xe2), решил через GetPropValue(AOwner,'Color')
проблема решена всем спасибо))
P.S. В delphi xe2 (может и в других старше D7) есть такая проблема у TRadioButton в ObjectInspector нельзя поменять Font.Color, т.е. поменять можно но цвет всё равно задаст RunTime Themes, так вот это было решение с переопределением WMPain. Если кому интересно могу выложить код.