Tach auch,
ich füge in ne MEMO n kurzen string ein:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s := memo1.Text;
  insert('<insert>',s,memo1.SelStart);
  memo1.Text := s;
end;

nach dem einfügen ist der Cursor aber ganz am Anfang der Memo das nervt extrem!!!!
wie kann ich den Cursor hinter den neu eingefügten Text stellen
Oder gibt es eine bessere methode, dem text einzufügen? ?

THX im Vorraus
Euer MOIN

Hai Moin,

einfach mittels SelStart den Carret setzen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 s1,
 s2 : string;
 spos : Integer;
begin
  spos := memo1.SelStart;
  s2 := '<insert>';
  s1 := memo1.Text;
  insert(s2,s1,memo1.SelStart+1);
  memo1.Text := s1;
  memo1.SetFocus;
  memo1.SelStart := spos + Length (s2);
end;

Und ich habe wieder ein Problem...

Meine Prozedur sieh jetzt so aus:

zusammenfalten · markieren

Delphi-Quellcode:

PROCEDURE TFenster.Einf(Text:String);
var s : string;
    spos : Word;

BEGIN
    spos := Memo.SelStart;

    If Memo.SelLength > 0
      Then begin
           Memo.SelText:= '' ;
           s := Memo.Text;
           end
      Else begin
           s := Memo.Text;
           
           end;
    Insert(Text, s, spos+1);
    Memo.Text := s;
    Memo.SetFocus;
    Memo.SelStart:= spos +Length(Text);
END;

Der Text kann also auch überschrieben werden, (Jetzt kommt das große Aber ABER
ich habe ein Memo mit Scrollbars , d. h. der Cursor steht zwar hinter dem eingefügten String, der "Focus" ist aber auf den Anfang der memo gesetzt. Das nervt extrem wenn man am Ende des Dokumentes arbeiten will, da mann nur am scrollen is!!!!! !!!!

Kann ich das Problem irgendwie umgehen??

THX im Vorraus,
MOIN