Wstawiłem komponent FindDialog. Mam do niego taki to kod:
procedure TNotatnik.FindDialog1Find(Sender: TObject);
var
x: LongInt;
a, b: integer;
begin
with richedit do
begin
if SelLength 0 then
a := SelStart + SelLength
else
a :=richedit.SelStart;
b := Length(Text) - a;
x := FindText(FindDialog1.FindText, a, b, [stMatchCase]);
if x -1 then
begin
SelStart := x;
SelLength := Length(FindDialog1.FindText);
end
else showmessage('Nie znaleziono szukanej frazy!');
end;
end;
To polecenie wykorzystuje FindDialog, ale nie wiem jak wykorzystać kierunek szukania tekstu w FindDialog oraz opcje "Uwzgęldniaj całe wyrazy" oraz "Uwzgędniaj wielkość liter". Czy ktoś mógłby mi dać całą te procedurke wykorzystującą w pełni FindDialog, a zwłaszcza kierunek szukania ??