Einzelnen Beitrag anzeigen

Blackheart

Registriert seit: 4. Mai 2005
846 Beiträge
 
Delphi 7 Enterprise
 
#1

Zeilen setzen an Cursorposition

  Alt 18. Dez 2006, 11:56
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;
Blackheart
  Mit Zitat antworten Zitat