1) mislim da je ovako
Code:
if Pos('test', Memo1.Text) > 0 then
begin
Memo1.SelStart := Pos('test', Memo1.Text);
Memo1.SelLength := Length('test'); //zameni test sa onim sta trazis
end
2) zar nije malo glupo da dogadjaj za komponentu stavis u drugi unit?
probaj da stavis u istu formu
Ride the rainbow, crack the sky
DIY gitare, pojacala i efekti
www.diy-fever.com