TEdit Cursorposition verwenden

[bcvs]

Schau dir mal TEdit.Seltext an.

[tcoman]

Zitat von bcvs:

Schau dir mal TEdit.Seltext an.

Danke, werde ich probieren.
Sobald ich eine Loesung habe, kommt die hier mit rein.
Ich probiere z.Zt. mit der CursorPosition im TCanvas des
TEdit-Feldes herum, um die Buchstabenstelle zu errechnen,
wo der Text eingefuegt werden soll...

Wahrscheinlich uebersehe ich wieder mal das Naechstliegende
und kompliziere alles nur, aber egal, dabei lernt man auch
was.

@Uwe Raabe : Beispiel kommt, danke Dir.

MfG,
Terence

[himitsu]

Das Allernaheliegenste übersiehst du immernoch. [edit] Oh, ein Edit. [/edit]

Delphi-Quellcode:

Leider fuegt mir mein Programm den Text am Ende des Textes an,
so dass nur "und ist DreiZwei " steht.

Wie wäre es, wenn du zeigst, wie du das machst, damit man besser sehn kann, was du falsch machst?


TEdit.SelStart, TEdit.SelLength, TEdit.SelText ...

[Uwe Raabe]

Zitat von himitsu:

Wie wäre es, wenn du zeigst, wie du das machst, damit man besser sehn kann, was du falsch machst?

Ähemm! #2

[DeddyH]

Andere Posts zu lesen ist in Dresden grundsätzlich out

[himitsu]

Pssst, hatte ich gesehn, aber da er geantwortet hatte, ohne darauf einzugehn ....

nja, abgesehn von seinem nachträglichem EDIT

[Uwe Raabe]

Zitat von tcoman:

Ich probiere z.Zt. mit der CursorPosition im TCanvas des
TEdit-Feldes herum, um die Buchstabenstelle zu errechnen,
wo der Text eingefuegt werden soll...

Wahrscheinlich uebersehe ich wieder mal das Naechstliegende
und kompliziere alles nur, aber egal, dabei lernt man auch
was.

Wenn der Cursor (eigentlich das Caret) im Edit-Control an der richtigen Stelle steht und kein Text darin markiert ist, dann fügt die Zuweisung

  Edit1.SelText := 'Was auch immer';

den Text an der entsprechenden Stelle ein. Da muss man nichts berechnen oder sonstwas tun.

Wenn im Edit ein Text markiert ist, wird dieser durch den zugewiesenen ersetzt.