Контрол спрашивает Parent

[Valio]

Мне нужно динамически создать компонент TRichEdit, засунуть туда текст, обработать, и удалить.

Temp := TRichEdit.Create(nil);

Но при первомже обращении к его тексту:

S := Temp.Text;

Выдаёт:

First chance exception at $7C812AEB. Exception class EInvalidOperation with message 'Control '' has no parent window'. Process MasterEnot.exe (3116)

То что он просит Parent(родителя) это понятно. Но как быть если мне не нужно чтоб ктото видел этот РичЕдит? Все действия производятся в модуле, и разумеется нет формы.

Раньше я добавлял в Uses модуль где форма есть и назначал парент - форму. Хотелосьбы какнить по уму на этот раз сделать..

[veniside]

> Но как быть если мне не нужно чтоб ктото видел этот РичЕдит?

Temp.Visible := False;

[spamer]

Странно это как-то...по идее должно работать, та ну вобщем-то и работает:

type
  TTest = class
  private
    RE: TRichEdit;
  public
    function t: string;
  end;

implementation

{ TTest }

function TTest.t: string;
begin
  RE := TRichEdit.Create(nil);
  RE.Text := 'test';
  Result := RE.Text;
  FreeAndNil(RE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ttt := TTest.Create;
  Caption :=  ttt.t;
  FreeAndNil(ttt);
end;

p.s. Delphi 2010.

Кстати, если нужно просто обработать текст, то зачем создавать РичЭдит, если лучше для этого использовать TStringList.

[Valio]

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

> Но как быть если мне не нужно чтоб ктото видел этот РичЕдит?

Temp.Visible := False;

Это само собой.
Компонент просит Parent. Без этого он работать отказывается.

Кстати, если нужно просто обработать текст, то зачем создавать РичЭдит, если лучше для этого использовать TStringList.

Нужно обработать rtf, а в стринГлист загружается всё форматирование, и обработать такое трудно..

[veniside]

> Компонент просит Parent. Без этого он работать отказывается.

что-то вы от нас скрываете. Вот, работает в Дельфи 7 без проблем:

var
  Re: TRichEdit;
  s: string;
begin
  Re := TRichEdit.create(nil);
  Re.text := 'Life sucks';
  s := Re.text;
  Re.Free;
end;

И выше пример под 2010 привели.

[D-mon]

Вообще-то в модуле не рекомендую создавать такого рода объекты (визуальные имею ввиду).
Но раз такое дело попробуй так:
function TTest.t: string;
begin
RE := TRichEdit.Create(nil);

RE.Parent := nil;
или
RE.Parent := Application;
RE.Visible := false;

RE.Text := 'test';
Result := RE.Text;
FreeAndNil(RE);
end;

[Valio]

Блин, я ступил. Сейчас на F8 пожмякал и он вылетает на

Temp.Lines.LoadFromFile(FName);

Тобишь не хочет фаил загрузить.

[veniside]

> Тобишь не хочет фаил загрузить.

да, там Борланд начюдил. Вот, можно так обойти:

var
  Re: TRichEdit;
begin
  Re := TRichEdit.create(nil);
  //
  with (TStringList.create()) do begin
    //
    LoadFromFile(Fname);
    Re.Text := Text;
    Free();
  end;
  //
  Re.Free;
end.

Ну или вобще ограничиться TStringList, как уже сказали выше )

[spamer]

И действительно, при загрузке из файла РичЭдиту требуется Парент. Тут скорее всего нужно под отладкой смотреть, что он хочет конкретно.
Но как вариант решения, хоть и опасный, можно сделать как предложил D-mon, только:

  RE.Visible := False;
  RE.Parent := Application.MainForm;

EDIT:
Во, вроде как все кроется в методе

procedure TWinControl.CreateWnd;

а конкретнее вот:

    if (WndParent = 0) and (Style and WS_CHILD <> 0) then
      if (Owner <> nil) and (csReading in Owner.ComponentState) and
        (Owner is TWinControl) then
        WndParent := TWinControl(Owner).Handle
      else
        raise EInvalidOperation.CreateFmt(SParentRequired, [Name]);

[Valio]

Вообщем это опять Борланд лажает.

Помогло только такое:

RE.Visible := False;
  RE.Parent := Application.MainForm;

РичЕдит нашёл форму и на ней отработал )

Через Re.Text := Text; тоже не прокатило, текст с тегами пролез почемуто.