String bei Cursorpostion einfügen

M.Mü · Beiträge: 68

Hallo,

ich seh wohl den Wald vor Bäumen nicht ...

Gibt es einen Befehl, mit deren Hilfe ich im RichEdit einen String bei der Cursorposition einfügen kann? ... ähnlich wie im NotePad die Datum/Uhrzeit.

Habe es im Moment folgendermaßen realisiert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var Line: string;
begin
 Line := RichEdit1.Lines[RichEdit1.CaretPos.Y];
 Insert('test',Line,RichEdit1.CaretPos.X+1);
 RichEdit1.Lines[RichEdit1.CaretPos.Y] := Line;
end;

VG M.Mü

Moderiert von Christian S.: Delphi-Tags hinzugefügt
Moderiert von Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Sa 14.01.2006 um 01:16

alias5000 · Verfasst: Sa 14.01.06 02:21

Wie wärs mit:

markieren

Delphi-Quelltext

1:
2:

RichEdit1.SelLength := 0; //Damit man keinen markierten Text überschreibt
RichEdit1.SelText := Line;

_________________
Programmers never die, they just GOSUB without RETURN

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

markieren

Delphi-Quelltext

1:	RichEdit1.SelText:='Mein String';

M.Mü · Beiträge: 68

Habt Dank für die Hilfe.

Bin nach einigem Suchen im Forum auf die Idee gekommen, das ganze mittels Tastensimulation (keybd_event) zu realisieren.

Das hat zwei entscheidende Vorteile:

1. Der Text wird ohne irgendein Zutun an die Cursorposition eingefügt.
2. es kann mit der Undo-Funktion des RichEdit rückgängig gemacht werden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme