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!

[TPeterT]

Hi!
Perfekt - hat funktioniert!

Danke und liebe Grüsse
Peter

[stephan007]

und wie kann ich das für eine caret position in abhängigkeit von zeile und spalte machen?
d.h. ich weiß ja, auf welcher position das caret steht bzw. stehen muss, denn ich kann ja abfragen, wie viele zeilen ich am bildschirm habe und wie lange der text in einer spalte bzw. der gerade aktuellen spalte ist.

wie müsste der code dann aussehen, wenn ich den cursor ans ende der letzten eingabe bzw. zeile setzen will

z.b.

texttexttext ....
texttexttext ....
texttextX

wobei X in der letzten Zeile das Caret bezeichnet. wie kann ich da diese position ermitteln und zum setzen des cursors an die position verwenden?

[marabu]

Hallo Stephan,

ich bin nicht sicher, ob ich deine Anforderung richtig verstanden habe, aber das freie Positionieren im RichEdit machst du so:

Delphi-Quellcode:

 RichEdit.CaretPos := Point(8, 4); // Zeile 5, Zeichen 9

Grüße vom marabu