Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Zeilen setzen an Cursorposition (https://www.delphipraxis.net/82688-zeilen-setzen-cursorposition.html)

Blackheart 18. Dez 2006 10:56


Zeilen setzen an Cursorposition
 
Hallo Leute
Steh gerade etwas auf'n Schlauch, und zwar möchte Ich die Pfade des OpenDialog
an die Cursorposition setzen also Zwischen schon bestehende Zeilen.
Aber Add setzt Mir die Pfade ans Ende hat Wer eine Idee.
SelText funktioniert ja in dem Fall auch nicht.

Bsp.
Zeile1
Zeile2
(Cursorposition) Pfade
Pfade
Pfade
Zeile3


Delphi-Quellcode:
if CheckBox5.Checked = True then
 j := RichEdit1.Selstart;
if Opendialog2.Execute then
 begin
  for i:=0 to OpenDialog2.Files.Count-1 do
  RichEdit1.Lines.Add(OpenDialog2.Files.Strings[i]);
  RichEdit1.Selstart := j;
end;

QuickAndDirty 18. Dez 2006 11:20

Re: Zeilen setzen an Cursorposition
 
TStrings Nachfahren verfügen doch über eine Insert(Index,text) Methode.

Blackheart 18. Dez 2006 11:55

Re: Zeilen setzen an Cursorposition
 
Danke QuickAndDirty das hätt Ich eigentlich drauf kommen müssen.
Habs jetzt mit CaretPos.y gelöst.
Danke.

DP-Maintenance 18. Dez 2006 15:33

DP-Maintenance
 
Dieses Thema wurde von "sakura" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz