RichEdit у меня так и не работает

← →
тихий вовочка (2004-02-15 11:14) [0]

Проблема вставлять пробел между красными тегами. Вставлять-вставляет, но я бы хотел чтобы при этом как в Replace диалоге курсор прокручивался к нужному месту и пользователь видел, где ему предлагают вставить пробел. У меня же такое работает только в пределах видимого окна, потом ни выделения, ни прокрутки. Что я делаю не так? И не осуждайте метод вставки пробела - лучше ничего не смог.
procedure TForm1.FormDblClick(Sender: TObject);
var
i : integer;
s : string;
begin
with RichEdit1 do
begin
ReadOnly:=false;
for i:=2 to Length(Text) do
begin
s:=Text[i-1]+Text[i]+Text[i+1];

if s[2]="<" then
begin
SelStart:=i-1;
SelLength:=3;
if (SelAttributes.Color=clRed)and(s[1]<>" ")and(s[3]<>"/") then
begin
HideSelection:=false;
if(MessageDlg("Add space?",mtConfirmation,[mbYes,mbNo],0)=IdYes)
then
begin
s:=" ";
SelLength:=0;
Clipboard.SetTextBuf(PAnsiChar(s));
PasteFromClipboard();
end
end
else
HideSelection:=true;
end;
end;
end;

end;

← →
тихий вовочка (2004-02-15 15:17) [1]

Ну, пожалуйста, посмотрите что у меня не так!!!

← →
Defunct (2004-02-15 15:42) [2]

Если выделенный фрагмен находится вне видимой области,
добавте сообщение:

SendMessage(RichEdit.Handle, EM_LINESCROLL, 0, top);

На месте top - номер новой верхней видимой строки RichEdit.

← →
тихий вовочка (2004-02-15 18:03) [3]

Спасибо огромное

← →
тихий вовочка (2004-02-16 06:20) [4]

Еще удобней в моем случае оказалось. SendMessage(RichEdit.Handle, EM_CARETSCROLL, 0, top);

RichEdit у меня так и не работает Найти похожие ветки