Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.05;
Скачать: CL | DM;

Вниз

Как в Ричедит узнать и перейти на выделеную в нем строку?   Найти похожие ветки 

 
Kostik   (2006-01-19 19:17) [0]

Вобщем я Файнддиалогом ищу текст в ричедите. Он его нааходит но не прокручивает текст а только выделяет. Как перейти на выделеную строку??
ищу так :

procedure TForm1.FindDialog1Find(Sender: TObject);
var
 FoundAt: LongInt;
 StartPos, ToEnd: Integer;
Begin
 with RichEdit2 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;


 
Kostik   (2006-01-19 19:34) [1]

ну, или как ГРАМОТНО искать, выделять и переходить на выделеный текст в ричедите??


 
begin...end ©   (2006-01-19 19:45) [2]

> Kostik   (19.01.06 19:17)

После установки SelLength добавьте такой код: Perform(EM_SCROLLCARET, 0, 0).

Интересно, что EM_SCROLLCARET должно автоматически посылаться при изменении SelLength (см. TCustomRichEdit.SetSelLength), однако прокручивания действительно почему-то не происходит...


 
Kostik   (2006-01-20 07:18) [3]

>begin...end
Большое спасибо!



Страницы: 1 вся ветка

Текущий архив: 2006.02.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
3-1133857572
SeZuka
2005-12-06 11:26
2006.02.05
Поля типа Graphic


15-1137528952
Nous Mellon_
2006-01-17 23:15
2006.02.05
Демократия в деле.


15-1137138220
Fredericco
2006-01-13 10:43
2006.02.05
Интересные факты о Чаке Норрисе.


2-1137503230
Ольга
2006-01-17 16:07
2006.02.05
Высота ToolButtons в ToolBar


8-1124853884
palgen
2005-08-24 07:24
2006.02.05
Как перевести Panel.Canvas в Image.Canvas ?