Создание TComponent/TWinControl внутри класса

[kettanaito]

Доброго времени суток.
Описываю класс:

type TMyClass = class
private
  FParent:TWinControl;
  procedure myProc(AFile:String);
public
  List:TStringList;
  constructor Create(AFile:String);
end;

...

constructor TMyClass.Create(AFile:String);
begin
FParent:=TWinControl.Create(nil);
MyProc(AFile);
end;

Вышеописанный код выдает ошибку записи в месте создания FParent.
Можно ли как-то создать FParent внутри класса, чтобы пользователю не нужно было его вводить вызывая Create? Зачем нужен FParent: далее в процедуре мне необходимо создать, например, TRichEdit, который требует AOwner и Parent для своей работы. Я могу создать их динамически в классе и использовать, верно?

[Пепел Феникса]

AOwner может быть нил, а Parent это, тот на ком отображается компонент.
а так вопрос тот же что и в соседней теме.

[kettanaito]

Пепел Феникса, ошибка даже в таком случае:

constructor TMyClass.Create(Parent:TWinControl);
begin
FParent:=Parent;
end;

Что Вы имеете в виду под "вызовом этого кода"?

[Пепел Феникса]

ваш класс сам себя вызывает?

[evg_m]

Зачем нужен FParent: далее в процедуре мне необходимо создать, например, TRichEdit, который требует AOwner и Parent для своей работы

Он их вовсе не требует. Parent требует его отображение где-то. Owner требует контроль за временем жизни. Если вам это не надо, то можно обойтись nil.

вот и получайте их(owner, Parent) в своем классе извне.
Кстати говоря Parent: Twincontrol вполне годится также на роль Owner: TComponent, т.е. достаточно получать только Parent.
Вы же не знаете где захотят разместить даже не ваш класс, а некий объект(RichEdit).
а лучше получайте сразу готовый richEdit.

Варианты на выбор.

prvate
  FRichEdit: TRichEdit;
publuc
property Richedit: TRichEdit;

prvate
  Fparent: TwinControl;
publuc
property Richedit: TRichEdit;

constrctor Create(Aparent: TWinControl; Afile: string);

[kettanaito]

evg_m, пробовал получать сразу готовый RichEdit - та же ошибка.

type TMyClass = class
private
  FParent:TWinControl;
public
  Elements:TCSSElementsList;
  constructor Create(AParent:TWinControl);
  procedure DoParse(AFile:String);
end;

...

constructor TMyClass.Create(AParent:TWinControl);
begin
FParent:=AParent; // EAccesViolation 
end;

Пепел Феникса, вызов:

procedure TForm1.Button1Click(Sender: TObject);
var MC:TMyClass;
begin
MC:=TMyClass.Create('C:\file.txt');
// MC:=TMyClass.Create(Panel1);
// MC.RichEdit:=RichEdit1; - здесь та же ошибка, хотя RichEdit1 создан и находится на форме
end;

[evg_m]

constructor TMyClass.Create(AParent:TWinControl );

MC:=TMyClass.Create('C:\file.txt');

Эти две строки между собой не согласуются! Так что вы не все нам рассказали.

// MC:=TMyClass.Create(Panel1);

Вот это похоже на правду. Но здесь комментарий!

// MC.RichEdit:=RichEdit1; - здесь та же ошибка, хотя RichEdit1 создан и находится на форме

Какая? Полный оригинальный текст.
И именно тот код, который был в программе с ошибкой.
При показе окна с ошибкой делаем Сtrl + C (копировать).
Потом в блокноте (или сразу в окне ответа) Ctrl +V (вставить).

[kettanaito]

evg_m, комментариями я выделил отдельные вариации кода, на которых выдают ошибки (чтобы не описывать по 10 раз один и тот же фрагмент).

Эти две строки между собой не согласуются! Так что вы не все нам рассказали.

Эти строки согласуются. Они представляют два варианта кода, которые выдают ошибки. Я отдельно попробовал тот и следующий случай (создание без указания значения AParent и с ним). Ошибка при первом случае происходит на месте FRichEdit.Parent:=AParent, на втором FParent:=AParent; (что соб-сно мало что меняет).

Ошибка:

Project cssparse_test.exe raised exception class EAccessViolation with message 'Access violation at address 0047E11C in module 'cssparse_test.exe'. Write of address 00000004'. Process stopped. Use Step or Run to continue.

Ошибка записи, как я упоминал, по определенному адресу, который соответствует этому месту:

constructor TMyClass.Create(AParent:TWinControl);
begin
FParent:=AParent;
{ И любому другому присвоению значений, будь-то FOwner:=AOwner или FRichEdit:=RichEdit1; }
end;

Пытаюсь понять почему здесь вообще существует ошибка, когда происходит элементарная запись значения в объявленную переменную..

Для полной ясности вот весь код:

// Исходный код с классом:
unit myclass;

interface

uses Classes, Controls, Dialogs, SysUtils, ComCtrls, SynMemo, StrUtils;

type TMyClass = class
private
  FParent:TWinControl;
public
  constructor Create(AParent:TWinControl);
  procedure DoParse(AFile:String);
end;

implementation

constructor TMyClass.Create(AParent:TWinControl);
begin
FParent:=AParent;
end;

// Исходный код с проектом, к которому подключен этот класс:
uses .., myclass;

...

procedure TForm1.Button1Click(Sender: TObject);
var CSSParse:TMyClass;
begin
CSSParse.Create(panel1); // panel1 - размещена на форме
end;

[veniside]

CSSParse := TMyClass.Create(panel1);

[kettanaito]

veniside, кошмар, как я мог такое упустить Видимо заработался)
Спасибо