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
Nie za bardzo kumam pytanie, ale,
Dla np: Edita masz cosik takiego :
SelStart
SelLength
SelectAll
Fojcik
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ć:-)
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 ]==-=-
ahi Fojcik czekam na twoj komentarz tego co napisalem :-)
w koncu czlowiek uczy sie na bledach :-)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-
Naprawdę dzięki. Nie omieszkam zastosować:-)
komenatarza nie budziet, bo tym razem kod ci sie udal jak cholera :)
Fojcik