Wie Cursorposition in Edit1.text auslesen?

[Uwe.F.]

Hallo Zusammen,

gibt's ne Möglichkeit, die Cursorposition in Edit1.text auszulesen?
Edit1.selstart geht offensichtlich nicht - gibt nämlich immer 0 aus.

Beste Grüße,
Uwe

[Die Muhkuh]

Hi,

das sollte mit SelStart schon funktionieren. Zumindest macht es das bei mir:

Label1.Caption := IntToStr(Edit1.SelStart); [edit] Detlef [/edit]

[DeddyH]

Bei mir geht es sehr wohl mit Selstart.

[edit] Zu spät oder zu alt [/edit]

[Uwe.F.]

Hmm - ich will an der Stelle, wo der Cursor sich befindet, zwei Leerzeichen einfügen. Geht aber nicht, weil er mir immer 0 liefert:

Delphi-Quellcode:

procedure TForm1.Edit1DblClick(Sender: TObject);
var i: integer;
    T: string;
begin
  i:=Edit1.selstart;
  T:=Edit1.Text;
  Insert('  ', T, i);
  Edit1.Text:=T;
end;

Mit dem Doppelklick wird ja auch der Cursor positioniert ...

[DeddyH]

Mit Doppelklick wird doch der gesamte Text markiert und SelStart auf 0 gesetzt AFAIK.

[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;

[Uwe.F.]

Jau - tut

Es lag am Doppelklick. Verwende nun den einfachen Klick, und eine "Weiter"-Taste (Return und Cursor down).

Herzlichen Dank für die Tips!

Euer
Uwe

[juergen]

Hallo,
Selstart funktioniert IMHO nur, wenn alles markiert ist.

[DeddyH]

Nö, SelStart funktioniert auch, wenn nichts markiert ist.

[juergen]

Sorry, hab mich da total vertan mit CopyToClipboard...