Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - SelStart n-Zeilen nach unten verschieben


StefanH - Sa 28.06.03 21:22
Titel: SelStart n-Zeilen nach unten verschieben
Hallo zusammen!

Also ich hab ein RE, und da werden Oberhalb des Cursours einige Zeilen eingefügt, und danach soll der Cursour wieder an die Textstelle, wo er vorher war. Wenn ich mir den SelStart nur merk, dann bringst ja nichst, also müsste ich sozusagen sooft die "Nach-Unten"- Taste drücken, wie viele Zeilen eingegeben wurden kann ich das irgendwie Machen?


Stefan


majolo - Sa 28.06.03 22:27
Also so wie ich dich verstehe, brauchst du die Zeilennummer.



Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
var zeile:integer;
begin
zeile:=SendMessage(Richedit1.Handle,
                                     EM_LINEFROMCHAR,
                                     RichEdit1.SelStart,
                                     0)+1 ;
end;

So bekommst du die Zeilennummer raus, wo sich der Cursor befindet. Und dann kannst du damit bauen,was du brauchst.


StefanH - Mo 30.06.03 17:40
Hmm, funktioniert irgendwie nichts!!
Auch wenn ich RichEdit1.SelStart auf zeile setzte und auf bie RichEdit1.SetFosu

Tja, der Cursour is weg!

Stefan


StefanH - Mo 07.07.03 17:06
Hat denn keiner ´ne Idee???


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!