Strings bei Coursor einfügen

Ehemaliges Mitglied Erhaltene Danke: 1

Mit diesem Code wird der Text erst am Ende des Textes eingefügt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.HTMLGrundgeruestClick(Sender: TObject);
begin
 with SynEdit1.Lines do
 begin
  Add('<html>');
  Add('<head>');
  Add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">');
  Add('<meta name="generator" content=Gaugg HTML Editor"> ');
  Add('<title>' + Edit1.Text + '</title>');
  Add('</head>');
  Add('<body>');
  Add('');
  Add('</body>');
  Add('</html>');
 end;
end;

Wie kann ich aber machen, dass der Code beim Coursor eingefügt wird.

Danke für die Hilfe

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Beim Grungerüst ist es doch Sinn der Sache das, das zum Anfang in der Leeren Datei steht weil ja der Text so und so in den Body Bereich gehört.
ansonsten...
Suche hätte nichts geschadet zb. :lupe:

Cursorposition, Ansonsten haben wir bald deinen HTML Editor geschrieben. :lol:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.MailLinkEinfuegenClick(Sender: TObject);
begin
  SynEdit1.SelText:='<a href="mailto:">'+Edit1.Text+'</a>';
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme