markierten Textabschnitt von TEdit verschieben

[RaSoWa1]

Hallo

ich möchte per Drag & Drop den markierten Textabschnitt von einem Edit-Feld in ein anderes Edit-Feld an die Cursor-Position einfügen.

Wie kann ich aus den Maus-Koordinaten X, Y von OnDragDrop die Position im 2. Edit.Text finden.

Hat jemand eine Idee?

Gruß Klaus

[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

[RaSoWa1]

Hallo Achim,

Danke, das war genau des was ich gesucht habe.

Viele Grüße Klaus