Показать сообщение отдельно
  #1  
Старый 27.08.2012, 14:48
Аватар для Lost_Fish
Lost_Fish Lost_Fish вне форума
Начинающий
 
Регистрация: 21.07.2011
Адрес: Новосибирск
Сообщения: 103
Версия Delphi: Delphi 7,XE2
Репутация: выкл
По умолчанию Вопрос по переопределению конструктоора

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

Код:
    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 или ещё что, то на что я кинул в дизайнере этот компонент

Подскажите как это сделать
Ответить с цитированием