[Erledigt] RichEdit zur Laufzeit durch SynEdit ersetzen

[jfheins]

Ich meinte das so:

Delphi-Quellcode:

procedure TForm1.Editormodus1Click(Sender: TObject); 
var 
  NewMemo: TRichEdit; 
begin 
  memo := FindMemo(ActiveControl); //aktives TabSheet finden 
  Quellcodemodus1.Visible := true; 
  Editormodus1.Visible := false; 
  NewMemo := TRichEdit.Create(memo); 
  NewMemo.OnMouseDown := (memo.Controls[0] as TSynEdit).OnMouseDown; 
  NewMemo.OnSelectionChange := (memo.Controls[0] as TSynEdit).OnChange; 
  NewMemo.OnKeyDown := (memo.Controls[0] as TSynEdit).OnKeyDown;  // Soft-Casten
  FreeAndNil(memo.Controls[0]); // Freeandnil
  NewMemo.Parent := memo; 
  NewMemo.Align := alClient; 
  NewMemo.Show; 
  NewMemo.SetFocus; 
  NewMemo.ScrollBars := ssVertical; 
  //Text übernehmen 
end;

Da sowohl der Parent als auch der Owner "memo" ist, gibt es da evtl. sowas wie RemoveControl, RemoveComponent oder so ähnlich?