Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - String an Cursorposition einfügen
mambo - Mo 30.09.02 06:56
Titel: String an Cursorposition einfügen
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 - Mo 30.09.02 07: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
Tino - Mo 30.09.02 08:58
Um mal ein Beispiel zu geben:
Quelltext
1:
2:
3:
4:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SelText := 'blaues';
end; |
Gruß
TINO
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!