Richedit, Curet an X,Y Pos setzten

[TPeterT]

Hallo!
Wie kann ich in einem RichEdit den Curet an eine bestimmte Psoition (X,Y) setzten?

Danke und liebe Grüsse
Peter

[sniper_w]

Zitat:

The SetCaretPos function moves the caret to the specified coordinates. If the window that owns the caret was created with the CS_OWNDC class style, then the specified coordinates are subject to the mapping mode of the device context associated with that window.

BOOL SetCaretPos(

int X, // horizontal position
int Y // vertical position
);


Parameters

X

Specifies the new x-coordinate of the caret.

Y

Specifies the new y-coordinate of the caret.



Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks

SetCaretPos moves the caret whether or not the caret is hidden.
The caret is a shared resource; there is only one caret in the system. A window can set the caret position only if it owns the caret.

[TPeterT]

Hi!
Danke für die Antwort.
Leider weiss ich nun trotzdem nicht weiter...
Wie ist das zum einbauen udn wo?

Danke und liebe Grüsse

[Flocke]

Meinst du mit X, Y Bildschirmkoordinaten oder Zeile, Spalte?

[TPeterT]

Hallo!
Bildschirmkordinaten..

[Flocke]

Dann mit SetCaretPos(X, Y) so wie sniper_w schon geschrieben hat.

Wird dir aber nicht viel nützen, weil das RichEdit das Ding wieder auf die aktuelle Eingabeposition zurücksetzen wird.

[TPeterT]

hi!
ja.. stimmt.. funktioniert nicht wirklich (gar nicht)...
es geht darum, dass ich aus einem Grid mittels Drag&Drop einen String in das RichEdit ziehen möchte...

[Marphy]

Projekt im Anhang...

[TPeterT]

Hi!
Danke für das Projekt!
Der Curet wird zwar reingesetzt, aber ich müsste genau an der Stelle dann einen Text in das RichEdit Feld einfügen (Editor.SelText := 'KeyWord'
Wird aber an einer ganz anderen Stelle eingefügt.. woran kann das liegen?
Danke und liebe Grüsse

[Flocke]

Hmmmm...

und wenn du einfach ein WM_LBUTTONDOWN, WM_LBUTTONUP mit den Koordinaten an das RichEdit-Control schickst? Dann sollte es den Eingabecursor doch so setzen, als wenn du an die Stelle mit der Maus geklickt hättest.

[Update]

Gibt eine bessere Methode, einen Moment...

Hier:

Delphi-Quellcode:

procedure SetRichEditCaret(RichEdit: TCustomRichEdit; X, Y: Integer);
var
  pt: TPoint;
begin
  pt.x := X;
  pt.y := Y;
  RichEdit.SelStart := SendMessage(RichEdit.Handle, EM_CHARFROMPOS, 0, Integer(@pt));
end;

Nicht ausprobiert!