Wie Cursorposition in Edit1.text auslesen?

[Die Muhkuh]

Hi Uwe,

wenn Du das bei einem Doppelklick machen willst, würde ich Dir folgende Vorgehensweise vorschlagen:

Bei einem einfachen Klick setzt Du eine Variable mit dem SelStart (das, was Du jetzt bei i := ... machst, nur eben bei einem normalen Klick) und beim Doppelklick führst Du dann das aus, was Du vor hast:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Click(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FEditSelStart: Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Click(Sender: TObject);
begin
  FEditSelStart := Edit1.SelStart;
end;

procedure TForm1.Edit1DblClick(Sender: TObject);
var
  T: string;
begin
  T:=Edit1.Text;
  Insert('  ', T, FEditSelStart + 1);
  Edit1.Text:=T;
end;