TEdit Cursorposition verwenden

[Uwe Raabe]

Wie schon gesagt, ist weder SelStart noch SelLength relevant, sondern man muss lediglich SelText setzen.

Zitat:

Das TEdit Feld ist leer.
Nun schreibe ich etwas da hinein, zB. "und ist Drei".
Das TEdit Feld hat den Focus und man sieht den TextCursor am
Ende des Textes blinken.

Jetzt setze ich mit dem Mauszeiger den TextCursor vor dem i
von "ist". Wenn ich nun mit dem Mauszeiger in die TListBox
auf die Zeile "Zwei " klicke, moechte ich, dass dieser Text
in das TEdit Feld an der Position vor dem i eingesetzt wird.
Es muesste jetzt dort "und Zwei ist Drei" stehen.

Genau dies erreichts du mit einem simplen:

Delphi-Quellcode:

procedure TPEnhInpText.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.SelText := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

[himitsu]

Will er selber ein INSERT machen, dann wäre SelStart schon relevant. (Inhalt auslesen, einfügen und wieder zuweisen)
Mit SelText kann man den selektierten Text an der Cursorposition ersetzen, also vorher noch ein SelLength:=0, da man sonst eventuell ersetzt und nicht einfügt.

[Uwe Raabe]

Zitat von himitsu:

Will er selber ein INSERT machen, dann wäre SelStart schon relevant. (Inhalt auslesen, einfügen und wieder zuweisen)
Mit SelText kann man den selektierten Text an der Cursorposition ersetzen, also vorher noch ein SelLength:=0, da man sonst eventuell ersetzt und nicht einfügt.

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 vermute, das ist dann aber auch so erwünscht.

Diese ganze Rumrechnerei und der Code in EditMouseDown und EditKeyUp sind vollkommen überflüssig und lenken nur von der eigentlich sehr simplen Lösung ab.

[tcoman]

Zitat von Uwe Raabe:

Genau dies erreichts du mit einem simplen:

Delphi-Quellcode:

procedure TPEnhInpText.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.SelText := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

Genau das konnte ich selber nicht finden, weil mir die
Methode des Edit1.SelText nicht bewusst war. Haette die
Methode Edit1.AddText oder Edit1.InsText geheissen, waere
es leichter gewesen dahinter zu kommen.

@Himitsu:
Hast recht, vieles im FormCreate() ist reduntant, weil es ja die
DFM Datei gibt. Aber so wichtige Einstellungen wie
ListBox1.MultiSelect:=False habe ich gerne greifbar
hinzugefuegt, auch wenn die Default Einstellung in D2005
schon False ist. Ob das bei einer anderen/neueren Version
von Delphi ebenso ist... und dann geht das Gesuche los,
wenn das neu compilierte Programm ein Fehlverhalten zeigt.

Upload der nun funktionierenden Version meines Beispieles
folgt. Vielen Dank an alle...

Werden laut Himitsu es aber so machen:

Delphi-Quellcode:

procedure TPEnhInpText.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.SelLength:=0; 
  Edit1.SelText := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

MfG,
Terence

[himitsu]

Man könnte aber auch OnClick verwenden

[tcoman]

Zitat von himitsu:

Man könnte aber auch OnClick verwenden

Bei OnClick in der ListBox wird jedesmal die selektierte Zeile
ins TEdit Feld kopiert. Auch beim benutzen der Arrow Keys.

Habe ich alles schon durchprobiert, Danke Himitsu.

MfG,
Terence