[Lost_Fish]

Создаю свой компонент

Код:

1 2 3 4 5 6 7 8 9 10 11

TRadioButtonCorrect=class(TRadioButton) private     FBitmap:TBitmap;     FLeftMove:Integer;     FTopMove:Integer;     procedure WMPaint(var Message: TWMPaint);message WM_PAINT;     procedure AfterCreate(var Msg:TMessage);message WM_User+1001; public     constructor Create(AOwner:TComponent);Override;     destructor Destroy;Override; end;

переопределяю конструктор так

Код:

1 2 3 4 5 6 7 8

constructor TRadioButtonCorrect.Create(AOwner: TComponent); begin     inherited Create(AOwner); //    Parent:=TWinControl(Owner);     FLeftMove:=16;     FTopMove:=2;     PostMessage(Handle,WM_User+1001,TForm(AOwner).Color,0); end;

если ставлю Parent:=TWinControl(Owner); то получаю привязку компонента к форме, если вообще без этой строчки то получаю ошибку о том что нет родителя у компонента

Мне нужно чтоб Parent был GroupBox или Panel или ещё что, то на что я кинул в дизайнере этот компонент

Подскажите как это сделать

[poli-smen]

Сообщение от Lost_Fish

если ставлю Parent:=TWinControl(Owner); то получаю привязку компонента к форме, если вообще без этой строчки то получаю ошибку о том что нет родителя у компонента

Мне нужно чтоб Parent был GroupBox или Panel или ещё что, то на что я кинул в дизайнере этот компонент

Подскажите как это сделать

Ничего не понятно чего ты хочешь добиться. Просто в дизайнере кидай свой компонент в GroupBox или на Panel и он сам получит правильный Parent.

[YVitaliy]

А может дело в этой строке:

Код:

1	PostMessage(Handle,WM_User+1001,TForm(AOwner).Color,0);

а именно в

Код:

1	TForm(AOwner)

. Если кинешь на панель, то aOwner явно не будет TForm. Попробуй например

Код:

1	(aOwner as TControl).Сolor

или в этом роде. А Parent определяется сам в конструкторе.

[NumLock]

проблема с Handle в PostMessage

Код:

1 2 3 4 5

with TRadioButtonCorrect.CreateParented(Panel1.Handle) do begin   Parent:=Panel1;   Caption:='TRadioButtonCorrect'; end;

[Lost_Fish]

Сообщение от YVitaliy

А может дело в этой строке:

Код:

а именно в

Код:

. Если кинешь на панель, то aOwner явно не будет TForm. Попробуй например

Код:

или в этом роде. А Parent определяется сам в конструкторе.

да похоже дело было в пост мессадж, и да TForm(AOwner) не корректно, но TControl(AOwner).Color не работает потому что свойство protected (delphi xe2), решил через GetPropValue(AOwner,'Color')

проблема решена всем спасибо))

P.S. В delphi xe2 (может и в других старше D7) есть такая проблема у TRadioButton в ObjectInspector нельзя поменять Font.Color, т.е. поменять можно но цвет всё равно задаст RunTime Themes, так вот это было решение с переопределением WMPain. Если кому интересно могу выложить код.