код из Help a а глючит до нельзя :( может где нить ошибка???

← →
jcrush (2002-09-02 18:19) [0]

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;

← →
alena.svt (2002-09-02 18:22) [1]

Ага нормально только HideSelection:=False

← →
jcrush (2002-09-02 18:38) [2]

alena.svt это на форме ричэдит поставлено, поиск глючит независимо!?

← →
alena.svt (2002-09-02 19:22) [3]

Только что скопировала ваш код и у меня все прекрасно работает.

← →
jcrush (2002-09-03 15:10) [4]

alena.svt но у меня же глююки я вам мессагу накотал...

код из Help a а глючит до нельзя :( может где нить ошибка??? Найти похожие ветки