String an Cursorposition einfügen

mambo · Beiträge: 76 Win XP D6 Prof

Hallo !

Ich habe ein Editfeld (TEdit) und ich möchte mit verschiedenen Buttons, einen Text genau dort einfügen, wo ich mit dem Cursor im Editfeld plaziert bin. Wie kann ich das machen ???

Also z.B. im Editfeld steht: "Dort steht ein [hier ist der Cursor] Haus"
und nach dem drücken des Buttons fügt das Programm beim Cursor z.B. "blaues" ein, dann steht da: "Dort steht ein blaues Haus"

Mit der Eigenschaft Text kann man nur den ganzen Text ändern...
und SendKey oder sowas ähnliches hab ich auch nicht gefunden...

danke für die Hilfe
Heinz

LCS · Verfasst: Mo 30.09.02 08:40

Hi
schau dir mal in der Online-Hilfe die Eigenschaften SelStart, SelLength, SelText von TEdit an. Das ist genau das was du brauchst.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Um mal ein Beispiel zu geben:

markieren

Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SelText := 'blaues';
end;

Gruß
TINO

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme