Markieren einer einzelnen Zeile im RichEdit

[scxx]

Hallo,

Wie kann man folgenden Vorgang im RichEdit realisieren:

ich klicke auf eine Zeile und sofort soll diese ganze Zeile markiert werden (Funktion wie beim Doppelklick auf eine Zeile).

Danke für die Antwort

Jan

[Stevie]

Hallo scxx,

bitteschön:

Delphi-Quellcode:

procedure TForm1.RichEditMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Line: Integer;
begin
  Line := SendMessage(RichEdit.Handle, EM_LINEFROMCHAR, RichEdit.SelStart, 0);
  RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, Line, 0);
  RichEdit.SelLength := Length(RichEdit.Lines[Line]);
end;

MfG
Stevie

[scxx]

Danke, hat wunderbar funktioniert.

Jan