pos (10, 10) - szukam info, prog itp

0

Chciałbym sie dowiedzieć czegoś na temat ustawiania kursora (klawiatury) we wskazanym miejscu. Czy ktos moze mi wskazać link do postu, materiału na ten temat, bym poznał to i nauczył się tego? Konkretnie chodzi mi o przykład: mam w memo kilka lini znaków i chciałbym umieścić kursor np. po wyrazie "komponent" - lecz nie wiem, w której jest linii. Czy ktoś może dać taki kod? Z góry thx (prosiłbym też o jakieś materiały) :)

0

Ale mi dokładnie chodzi, aby znalazło text o konkretnej wartości, tzn. np. "blabla". Musi znaleźć ten text i ustawić kursor właśnie po nim.
Może jakos tak: memo1.gettext:='blabla';
Ale takiego czegos nie ma. I jeszcze tak na marginesie:
co to jest SetFocus?
THX :-)

0

Ogólny algorytm:

  1. znajdź wyraz (funkcja pos())
  2. znajdź spację po nim
  3. ustaw kursor przed tą spacją

co to jest SetFocus?

Ustawia focus (czyli jakby aktywuje) na kontrolce.

0

Ogólny algorytm:

  1. znajdź wyraz (funkcja pos())
  2. znajdź spację po nim
  3. ustaw kursor przed tą spacją

co to jest SetFocus?

Ustawia focus (czyli jakby aktywuje) na kontrolce.

Z wypowiedzi thenklesa rozumiem tyle.............co nic :-P

0

Z wypowiedzi thenklesa rozumiem tyle.............co nic :-P

Brak podstawowej wiedzy!!
Skeirowanie do przeczytania kursu: http://vogel.iglu.cz lub jakiegoś innego.

0

Ogólny algorytm:

  1. znajdź wyraz (funkcja pos())
  2. znajdź spację po nim
  3. ustaw kursor przed tą spacją

co to jest SetFocus?

Ustawia focus (czyli jakby aktywuje) na kontrolce.

Z wypowiedzi thenklesa rozumiem tyle.............co nic :-P

procedure TForm1.Button1Click(Sender: TObject);
Var
zm1 : Integer ;
slowo : string ;
begin
slowo := 'komponent' ;
//1. znajdź wyraz (funkcja pos())
zm1 := Pos(slowo,memo1.Text ) ;

// tu powinieneś sprawdzić czy jest slowo (if zm1 0 ...)

// co to jest SetFocus?
memo1.SetFocus ; // aktywny jest memo dzieki czemu kursor
// jest widoczny i można Od razu pisać w memo.

//2. znajdź spację po nim
// można szukać spacji albo użyć length()

// ja jednak proponuje coś takiego:
Memo1.SelStart := zm1-1 ;
memo1.SelLength:=length(slowo) ;
end;

0

Wielkie dzięki Mirekpil :-)

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