Главная страница
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.036 c
1-1136296022
TStas
2006-01-03 16:47
2006.02.05
Почему TBitmap становится недоступным, если есть ссылка на Window


15-1137033129
brother
2006-01-12 05:32
2006.02.05
мусор в массиве


2-1137754635
VolanD666
2006-01-20 13:57
2006.02.05
DLL в runtime


15-1137064958
Ксардас
2006-01-12 14:22
2006.02.05
Какая настройка в Дельфи отвечает за автоматическое заканчивание


15-1136862432
vidiv
2006-01-10 06:07
2006.02.05
getdc(0);