Aktuelle Zeile im Memo farblich hervorheben (wie in BDS)

[Nils_13]

Dann halt anders:

Delphi-Quellcode:

  SelectedSheet := Pages.ActivePage;
  with TExtendedTabSheet(SelectedSheet) do
  begin
    with fMemo.CaretPos do
    Edit2.Text := Format('(%d, %d)',[X+1,Y+1])
  end;

So finde ich die Caret-Position heraus. X ist die X-Position und Y- ist die Zeile (also die Y-Position). Ich muss jetzt nur wissen, wie ich die Farbe einer Spalte verändern kann.