Fehler beim erstellen eines dbRichEdit

[Nalincah]

Hi

Ich versuch in einer Funktion einen TDBRichEdit und eine TDataSource zu erstellen

Delphi-Quellcode:

procedure FormatText(Feldname,Feldinhalt:string;FontDialog:TFontDialog);
var
  dbRichEdit : TDBRichEdit;
  DS:TDataSource;
begin
  DS := TDataSource.Create(nil);
  DS.Name := Feldname + Feldinhalt;
  DS.DataSet := datamain.ZielTab;

  dbRichEdit := TDBRichEdit.Create(nil);
  dbRichEdit.Name := Feldname + Feldinhalt;
  dbRichEdit.DataSource := DS;
  dbRichEdit.DataField := Feldname;  // <-- Hier kracht er (Siehe Anhang)
  dbRichEdit.SelAttributes.Color := FrmMain.FontDialog1.Font.Color;
  dbRichEdit.SelAttributes.Size := FrmMain.FontDialog1.Font.Size;
  dbRichEdit.SelAttributes.Style := FrmMain.FontDialog1.Font.Style;
  dbRichEdit.Lines.Add(Feldinhalt);
end;

In Feldname steht was drin
Woran liegt das?

[Nalincah]

Mit Edit klappt es:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dbRichEdit : TDBEdit;
  DS:TDataSource;
begin
  DS := TDataSource.Create(nil);
  DS.DataSet := ADOTable1;
  dbRichEdit := TDBEdit.Create(Form1);
  dbRichEdit.DataSource := DS;
  dbRichEdit.DataField := 'Langtext';
  dbRichEdit.Parent := Form1;
end;

Kann mir jemand erklären warum das so ist??

Zitat:

Element "" hat kein übergeordnetes Fenster

[Leuselator]

Bin nicht sicher aber versuch doch mal statt Create(nil) so wie im 2. Post auch Create(Form1) und setz das Parent, bevor Du das DataField zuweist...
Gruß