Das ginge mit CaretPos:
Delphi-Quellcode:
var Start, Ende : Integer;
begin
With RichEdit1 do
begin
CaretPos := Point(0, CaretPos.Y);
Start := RichEdit1.SelStart;
CaretPos := Point(0, CaretPos.Y +1);
Ende := RichEdit1.SelStart;
SelStart := Start;
SelLength:= Ende- Start;
SelAttributes.Color := clmaroon;
SetFocus;
end;
end;
Du gehst zuerst an den Anfang der aktuellen Zeile, merkst dir diese Position. Dann gehst du eine Zeile weiter, und merkst dir auch diese Position. Jetzt kannst du SelStart auf den ersten gemerkten Wert setzen und SelLength aus "Ende - Start" berechnen. In diesem Beispiel wird die aktuelle Zeile markiert und rot eingefärbt.
Man liest sich, Stanlay
