Надо прокрутить RichEdit...

← →
KA-87 © (2003-04-20 12:45) [0]

{Чего надо добавить, чтобы прокрутить RichEdit к тому месту, где найден текст}
procedure TMainForm.FindDialogFind(Sender: TObject);
var
FoundAt: Longint;
StartPos,ToEnd: Integer;
begin
{reEditor = TRichEditor}
if reEditor.SelLength<>0 then
StartPos:=reEditor.SelStart+reEditor.SelLength
else
StartPos:=0;
ToEnd:=Length(reEditor.Text)-StartPos;
FoundAt:=reEditor.FindText(FindDialog.FindText,StartPos,ToEnd,[stMatchCase]);
if FoundAt<>-1 then
begin
reEditor.SelStart:=FoundAt;
reEditor.SelLength:=Length(FindDialog.FindText);
reEditor.SetFocus;
end;
end;

← →
Song © (2003-04-20 13:38) [1]

EM_SCROLLCARET

to [Song] Спасибо - помог ;)

Надо прокрутить RichEdit... Найти похожие ветки