Как при поиске в RichEdit текст прокручивался

← →
ruslan_as (2004-08-31 13:39) [0]

Организовал поиск в RichEdit как было показанов в Helpe, но столкнулся с такой проблемой. Когда поиск выходит за пределы зоны выдимости - RichEdit не прокручивается (т.е. я не вижу найденого участка хотя он и найден ).
Прошу помочь знатоков.
Заранее всем спасибо!

procedure TfmLog.FindDialog1Find(Sender: TObject);
var FoundAt: LongInt; StartPos, ToEnd: Integer;
begin
with RichEdit1 do begin
if SelLength <> 0
then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1
then begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;
end;

← →
MU © (2004-08-31 13:56) [1]

EM_SCROLLCARET?

Как при поиске в RichEdit текст прокручивался Найти похожие ветки