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ß.

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 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