![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Создаю свой компонент
Код:
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; переопределяю конструктор так Код:
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 или ещё что, то на что я кинул в дизайнере этот компонент Подскажите как это сделать |