Bildschirmkoordinalten des Cursors in TMemo ermitteln

[franz]

Ein Problem aus älter Zeit.
Bereits im März 2003 wollte ich in meinen SQL Editor eine SQL – Vervollständigung einbauen, was ich dann auch getan habe. Allerdings tauchte folgendes Problem auf. Ich konnte die SQL – Vervollständigung nicht direkt an der Cursorposition aufklappen lassen. Das Problem habe ich damals damit gelöst, in dem ich die Vervollständigung entweder in der Fenstermitte oder am unteren Fensterrand aufklappen ließ.

:gruebel: Mein Frage:
Wie erhalte ich die Cursorposition? Mit Cursorposition meine ich die Position des blinkenden Cursors im Memofeld in Bildschirmkoordinaten (z. B. 250,120).

[kiar]

für ein richedit
http://www.delphipraxis.net/internal...ition&start=15

für ein memo müßte es ähnlich sein

raik

[franz]

Danke für den Tipp.

Das müsste theoretisch funktionieren.

[teebee]

Die Position des blinkenden Cursors - des sog. Carets - eines Memos in Bildschirmkoordinaten lässt sich so bestimmen:

Delphi-Quellcode:

Var MemoCaretPos, ScreenCaretPos: TPoint;

GetCaretPos(MemoCaretPos);
ScreenCaretPos := Memo1.ClientToScreen(MemoCaretPos);

Gruß, teebee

[kiar]

hallo franz

gerade gefunden

Delphi-Quellcode:

With Memo1 do begin 
  Line := Perform(EM_LINEFROMCHAR,SelStart, 0); 
  Column := SelStart - Perform(EM_LINEINDEX, Line, 0); 
end

[teebee]

Zitat:

Zitat von kiar

Delphi-Quellcode:

With Memo1 do begin 
  Line := Perform(EM_LINEFROMCHAR,SelStart, 0); 
  Column := SelStart - Perform(EM_LINEINDEX, Line, 0); 
end

Das gibt die Koordinaten in Textzeilen/-spalten des Memos wieder aber nicht die Bildschirmkoordinaten in Pixeln.

Gruß, teebee

[kiar]

steht ja auch da .

es ist schon ein bisschen spät.

raik