Ich hab mal wieder ein Problem.
ich hab ein TabSheet, auf dem ein RichEdit ist. Über ein Popup Menu möchte ich nun zur Laufzeit, dieses RichEdit durch ein Synedit ersetzen und auch wieder umgekehrt.
Hier mal mein Quellcode für die beiden Fälle:
Delphi-Quellcode:
procedure TForm1.Quellcodemodus1Click(Sender: TObject);
var
NewSyn: TSynEdit;
begin
memo := FindMemo(ActiveControl); //aktives Tabsheet finden
Quellcodemodus1.Visible := false;
Editormodus1.Visible := true;
NewSyn := TSynEdit.Create(memo);
NewSyn.Options := NewSyn.Options + [eoHideShowScrollbars];
NewSyn.OnMouseDown := TRichEdit(memo.Controls[0]).OnMouseDown;
NewSyn.OnChange := TRichEdit(memo.Controls[0]).OnSelectionChange;
NewSyn.OnKeyDown := TRichEdit(memo.Controls[0]).OnKeyDown;
TRichEdit(memo.Controls[0]).Destroy;
NewSyn.Parent := memo;
NewSyn.Align := alClient;
NewSyn.Show;
NewSyn.SetFocus;
NewSyn.ParentFont := true;
NewSyn.Gutter.DigitCount := 5;
NewSyn.Gutter.LeftOffset := 1;
NewSyn.Gutter.RightOffset := 1;
NewSyn.Gutter.ShowLineNumbers := true;
NewSyn.Gutter.Width := 15;
NewSyn.WordWrap := true;
NewSyn.ScrollBars := ssVertical;
//Text übernehmen
end;
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 := TSynEdit(memo.Controls[0]).OnMouseDown;
NewMemo.OnSelectionChange := TSynEdit(memo.Controls[0]).OnChange;
NewMemo.OnKeyDown := TSynEdit(memo.Controls[0]).OnKeyDown;
TSynEdit(memo.Controls[0]).Destroy;
NewMemo.Parent := memo;
NewMemo.Align := alClient;
NewMemo.Show;
NewMemo.SetFocus;
NewMemo.ScrollBars := ssVertical;
//Text übernehmen
end;
Das erste Wechseln von RichEdit zu SynEdit funktioniert tadellos.
Wenn ich nun aber wieder zurückwechsle, bekomme ich eine
Access Violation.
Was mache ich da falsch?