Hallo Cookie,
einfach den Wert von TEdit.Brush.Color verändern.
Habe mal kurz hier ein Edit erstellt und in der Mousmove-Eigenschaft die Markierfarbe auf rot gesetzt.
Code:
procedure TForm1.Edit1MouseLeave(Sender: TObject);
Var i: Integer;
begin
For i:=self.Edit1.SelStart to self.Edit1.SelLength do
begin
self.Edit1.Brush.Color := clRed;
end;
end;
Muss natürlich noch ausgearbeitet werden, dient nur als kleines Beispiel.
Grüße,
Marc
[EDIT] aber nicht vergessen den Brush.Color wieder auf deine eigentliche Farbe zu setzen, nachdem der Markiervorgang beendet ist.
Weiterhin muss noch berücksichtigt werden ob man mit der Maus von links nach rechts oder von rechts nach links markiert. Ausserdem muss noch das Entfernen der Markierung, sowie das manuelle Markieren mittels Tastatur berücksichtigt werden. Ist nur mal ein Schnellbeispiel gewesen.