markierten Textabschnitt von TEdit verschieben

[marabu]

Hallo Klaus,

das hier sollet dich auf die richtige Spur bringen:

Delphi-Quellcode:

procedure TDemoForm.EditDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  with Sender as TEdit do
  begin
    SelStart := Perform(EM_CHARFROMPOS, 0, Y shl 16 + X);
    SelText := TEdit(Source).SelText;
  end;
end;

Freundliche Grüße