Moin alle zusammen!!!!
Ich hab ne Prozedur geschrieben, die einen String in ein Memo Einfügt, und ggf. Markierten Text damit überschreibt, sie sieh so aus:
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;
Spos dient der Festlegung des TextCursors!
Jetzt kommt das große
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