TMemo eine Zeile löschen?

[Code]

Hallo Alle!

Wie kann man in einem TMemo die Zeile in der sich der Cursor befindet löschen?

Gruß
Klaus

[mkinzler]

Memo.Lines.Delete();

[Die Muhkuh]

Memo1.Lines.Delete(Memo1.CaretPos.Y); @ Markus: Richtig lesen, es geht um Zeile, an der sich der Cursor befindet

[Code]

Habt vielen Dank für Eure Mühe.

Gruß
Klaus

[RaSoWa1]

Hallo,

ich habe dieses alte Thema wieder hervorgeholt, weil ich das gleiche Problem habe und der Tip nur funktioniert wenn der Cursor nicht am Ende der Zeile steht.
Wenn er hinter dem letzten Zeichen steht wird schon die nachfolgende Zeile gelöscht!

Ich suche schon den ganzen Tag nach einer Lösung.
Hat jemand eine Idee?

Gruß Klaus.

[DeddyH]

Und so?

Delphi-Quellcode:

var
  LineNo: integer;
begin
  LineNo := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, -1, 0);
  Memo1.Lines.Delete(LineNo);
end;

[RaSoWa1]

Zitat von DeddyH:

Und so?

Delphi-Quellcode:

var
  LineNo: integer;
begin
  LineNo := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, -1, 0);
  Memo1.Lines.Delete(LineNo);
end;

Mit Memo1 der gleiche Effekt. Aber mit TRichEdit funktioniert es.

Dann werde ich auf TrichEdit umstellen.

Danke

[DeddyH]

Merkwürdig, bei mir funktioniert das auch mit einem Memo.

[RaSoWa1]

Zitat von DeddyH:

Merkwürdig, bei mir funktioniert das auch mit einem Memo.

Stelle mal den Cursor hinter das letzte Zeichen der Zeile. Dann wird die nachfolgende Zeile gelöscht. Zumindest bei mir.
Ich arbeite mit D 2010 und Windows 7 64-Bit.

[DeddyH]

Bei mir eben nicht (XE unter Win7-64).