Szukanie tekstu

0

Mam pewien problem, który polega na tym, że do trzech różnych kontrolek tekstowych nie posiadających standardowo funkcji wyszukiwania i zaznaczania znalezionego tekstu muszę stworzyć takie właśnie procedury. znaleŹć tekst to nie problem, ale jak go potem zaznaczyć?hmm...
Mam nadzieję, że w miarę prosto to wytłumaczyłem:-)

Pozdrawiam

0

Nie za bardzo kumam pytanie, ale,

Dla np: Edita masz cosik takiego :
SelStart
SelLength
SelectAll

Fojcik

0

Rzeczywiście dość źle to wytłumaczyłem:-)
Wiem o funkcjach SelStart itd., ale chodzi mi o stworzenie uniwersalnej procedury, która wyszukiwała by w danej kontrolce tekst i znaleziony tekst zaznaczała (zrobienie tego, np. w RichEdit to nie problem, ale w innych, niestandardowych komponentach nie mogłem sobie poradzić:-().
Uff, jak jescze czegoś nie rozumiecie, to dajcie znać:-)

0

musisz wyslac do komponentu komunikat EM_SetSel
pokaze jak to zrobic na przykladzie zwyklego Edit'a (wiem ze Edit posiada procedury SelStart...) :-)

var
SzukanyWyraz: String;
Pozycja: Integer;
begin
SzukanyWyraz := 'LKS';
Pozycja := Pos(SzukanyWyraz, Edit1.Text) ;
if Pozycja 0 then
begin
Dec(Pozycja);
PostMessage(Edit1.Handle, EM_SetSel, wyslij komunikat
Pozycja,
pozycja poczatkowa
Pozycja + Length(SzukanyWyraz) //pozycja koncowa
);
Edit1.SetFocus;
end;
end;

chyba tak to bedzie wygladac
za wszystkie bledy z gory przepraszam :-)

--
-=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

ahi Fojcik czekam na twoj komentarz tego co napisalem :-)
w koncu czlowiek uczy sie na bledach :-)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

Naprawdę dzięki. Nie omieszkam zastosować:-)

0

komenatarza nie budziet, bo tym razem kod ci sie udal jak cholera :)

Fojcik

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0