| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
код из Help a а глючит до нельзя :( может где нить ошибка???
jcrush © (2002-09-02 18:19:00)procedure TForm1.Button11Click(Sender: TObject);
begin
FindDialog1.Position := Point(RichEdit2.Left + RichEdit2.Width, RichEdit2.Top);
FindDialog1.Execute;
end;
{вообще поиск работает,но когда я жму на поиск, ничего не происходить, жму отмена, находиться слово которое искал, если жать на отмена без предворительного на поиск, ничего не найдеться..
это что так и должно быть???:)}
procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit2 do
begin
{ begin the search after the current selection if there is one }
{ otherwise, begin at the start of the text }
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;
jcrush (2002-09-03 15:10:00) [1]alena.svt но у меня же глююки я вам мессагу накотал...
alena.svt (2002-09-02 19:22:00) [2]Только что скопировала ваш код и у меня все прекрасно работает.
jcrush (2002-09-02 18:38:00) [3]alena.svt это на форме ричэдит поставлено, поиск глючит независимо!?
alena.svt (2002-09-02 18:22:00) [4]Ага нормально только HideSelection:=False
| |
