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

Hi,

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

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

Bei mir geht es sehr wohl mit Selstart.

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

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

markieren

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 ...

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

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:

zusammenfalten · markieren

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;

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

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

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

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