Im Edit bei DragOver Cursor setzen

[Benedikt]

Hi,

ich hab ein Problem mit dem TEdit, und zwar:
Ich will per Drag and Drop einen Text von einem Edit ins andere ziehen - soweit auch alles kein Problem, nur soll der Text auch da gedroppt werden wo die Maus über dem andern Edit steht.
Also müssten entweder im OnDragOver oder erst später im OnDragDrop die Pixel-X/Y (wobei eigentlich nur X, da das Edit ja nur eine Zeile hat...)-Werte umgewandelt werden damit man sie für SelStart einsetzen kann...
Hat vielleicht irgendwer eine Idee wie ich das am besten realisieren könnte?

MfG Benedikt Loepp

[Stevie]

Hi Benedikt,

Delphi-Quellcode:

procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Edit1.SelStart := Edit1.Perform(EM_CHARFROMPOS, 0, X);
  {...}
end;

MfG
Stevie

[Benedikt]

Thx, das war genau das was ich gesucht hab :wink:
Hatte schon mit etwas ähnlichem gerechnet, nur sowas zu suchen und dann auch noch zu finden...