Im Edit bei DragOver Cursor setzen

[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