Napunio sam jedan memo box sa podacima... Kako da ga postavim na pocetak, tj. na prvi red kao da se edituje? Posto mi scroll box ode skroz dole i kursor je na kraju...
Memo box da se postavi na prvi red?!
Zaključano
Zakačeno
izmenjeno 2 puta, poslednji put bojan21 09.11.2007. u 16:01
Izmene poruke
- bojan2109.11.2007. u 16:01zapis iz teksta poruke
- bojan2109.11.2007. u 15:58zapis iz teksta poruke
Jesi probao ovako:
?
Ili ako hoces i da skrolujes Memo na pocetak onda moze ovako:
Mada umesto druge linije mozes da stavis:
Code:
Memo1.SelStart:=0;
Memo1.SetFocus;
Memo1.SelStart:=0;
Memo1.SetFocus;
?
Ili ako hoces i da skrolujes Memo na pocetak onda moze ovako:
Code:
Memo1.SelStart:=0;
SendMessage(Memo1.Handle, messages.EM_LINESCROLL, 0, -maxint);
Memo1.SetFocus;
Memo1.SelStart:=0;
SendMessage(Memo1.Handle, messages.EM_LINESCROLL, 0, -maxint);
Memo1.SetFocus;
Mada umesto druge linije mozes da stavis:
Code:
SendMessage(Memo1.Handle, WM_VSCROLL, SB_TOP, 0);
SendMessage(Memo1.Handle, WM_VSCROLL, SB_TOP, 0);
Code:
Memo1.SelLength := 0;
Memo1.SelStart := 0;
Memo1.Perform(EM_SCROLLCARET, 0, 0);
Memo1.SetFocus;
Memo1.SelLength := 0;
Memo1.SelStart := 0;
Memo1.Perform(EM_SCROLLCARET, 0, 0);
Memo1.SetFocus;
Ok, najlepse hvala... Interesuje me kako mogu da uradim jos nesto, kada kliknem misem na jedan red u memo boxu da mi iscita tu celu vrednost linije. Ne znam kako odredim koji je to red u memobox-u na klik misa?
> Ok, najlepse hvala... Interesuje me kako mogu da uradim jos nesto, kada kliknem misem na jedan red u memo boxu da mi iscita tu celu vrednost
> linije. Ne znam kako odredim koji je to red u memobox-u na klik misa?
Memo1.Lines[Memo1.CaretPos.Y];
Ovde samo ubaci i neku proveru da indeks ne bude veći od maksimalnog broja linija.
> linije. Ne znam kako odredim koji je to red u memobox-u na klik misa?
Memo1.Lines[Memo1.CaretPos.Y];
Ovde samo ubaci i neku proveru da indeks ne bude veći od maksimalnog broja linija.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html