Delphi memo.caretpos liefert falsche ergebnisse

Thema durchsuchen

Ansicht

Themen-Optionen

memo.caretpos liefert falsche ergebnisse

Ein Thema von freejay · begonnen am 7. Mär 2005 · letzter Beitrag vom 8. Mär 2005

Vorheriger Beitrag

Nächster Beitrag

Christian Seehase

(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.123 Beiträge

Delphi 11 Alexandria

Re: memo.caretpos liefert falsche ergebnisse

7. Mär 2005, 23:41

Moin freejay,

ich kann das Problem nachvollziehen.
Schau doch mal in den VCL-Sourcen, wie GetCaretPos in D7 implementiert ist.
Bei mir (D5), wird leider der Rückgabewert von EM_GETSEL als Initialwert genommen, was zu diesem Fehler führt.
Vermutlich hat sich dies in D7 nicht geändert.

So geht's:

markieren

Delphi-Quellcode:

			  SendMessage(Memo1.Handle, EM_GETSEL, wParam(@lCol), 0);

  lLine := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, lCol, 0);

  lCol  := lCol - SendMessage(Memo1.Handle, EM_LINEINDEX, -1, 0);

lCol entspricht dem y-, lLine dem x-Wert von CaretPos.

Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist