Forum: Programmieren allgemein
by Uwe Raabe,
2. Aug 2016
So wie er das Vorgehen im ersten Post beschrieben hat (Caret im Edit an Einfügeposition setzen, dann auf ListBox klicken), muss nichts weiter geschehen. Das Standardverhalten beim Schreiben von TEdit.SelText ohne selektierten Text ist das Einfügen an die Caret-Position, was genau dem gewünschten Verhalten entspricht.
Sollte allerdings ein Text im Edit markiert sein, wird dieser ersetzt - ich...
Forum: Programmieren allgemein
by Uwe Raabe,
1. Aug 2016
Wie schon gesagt, ist weder SelStart noch SelLength relevant, sondern man muss lediglich SelText setzen.
Genau dies erreichts du mit einem simplen:
procedure TPEnhInpText.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Forum: Programmieren allgemein
by Uwe Raabe,
1. Aug 2016
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.
Forum: Programmieren allgemein
by Uwe Raabe,
27. Jul 2016
Zeig mal, was du da machst.