Aktív témák
-
KovacsUr
addikt
Nem kellett volna kerülőút, erre (is) van a SelStart property.
RichEdit.SelStart := {ahova menni akarsz};
RichEdit.SelLength := 0;
Aztán hogy bejöjjön a képbe,
SendMessage(RichEdit.Handle, EM_SCROLLCARET,0,0);
[Szerk.]
(Na, most ez sokkal jobb ám, mint Lao ce-é... :D Bocs, csak elsőre félreértettem a kérdésedet, aztán utólag kiegészítettem, és ez lett belőle. :) ) -
lao ce
aktív tag
az onChange eventbe ezt ird be (persze helyettesitsd be a nevet):
SendMessage( MyRichEdit.Handle, WM_VSCROLL, SB_LINEDOWN, 0 );
ez egy olyan windows uzenetet kuld az objektumodnak hogy egy sort scrolloz lefele.
ha tobb sor kell akkor itt vannak ezek az SB_LINEDOWN helyere :
SB_PAGEDOWN, SB_BOTTOM -
thozoo
tag
Sziasztok!
Tudna nekem valaki segíteni abban, hogy hogyan tudok Delphiben utasítással egy RichEdit-ben tárolt szöveg végére ugrani? Egy chat-szerű alkalmazást írnék, és ugyebár egy editbox-ba beírt szöveget mindig beillesztek a richedit komponensbe, eképp:
richedit.strings.add(edit1.text);
Amikor a szöveg eléri a richedit látható területének végét, akkor nem látszik a szöveg alja, mivel nem ugrál lefelé, mindig az utolsó sorra. (A szöveg íródik, és gördítősávval a végére is tudok menni.) Arra lenne tehát szükségem, hogy egy utasítással a szöveg végére tudjak ugrani a richedit-ben.
Várom az építő jellegű hozzászólásokat.
Aktív témák
- Ilyen olcsó sem volt még egy Apple notebook
- Gumi és felni topik
- OLED monitor topic
- One otthoni szolgáltatások (TV, internet, telefon)
- Valószínűleg késnek majd a Valve új Steam eszközei
- Brave
- Formula-1
- Gyúrósok ide!
- Szeged és környéke adok-veszek-beszélgetek
- Polgári repülőgép-szimulátorok
- További aktív témák...
- Dell Latitude 5430 / 12GEN Core i7 / 16gb RAM / 256gb NvMe ssd / win11 / Világitó Bill
- új HP Pavilion 16" fémházas - AMD Ryzen 5 8540U - 16GB DDR5 - 512GB SSD - gyári gari 2028-ig
- ASUS ROG Raikiri Pro OLED kijelzős prémium kontroller (Garanciás: 2026.12.09. Oázis Computer)
- Újszerű iPhone 13 Pro 128GB Sierra Blue független, 99% aksi, 1 Év garancia
- MacBook Pro asztroszürke M1 Pro 512GB/32GB Magyar bill 2026.12.09-ig Gari!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- AKCIÓ! Lenovo Legion Go 512GB SSD kézikonzol garanciával, hibátlan működéssel
- BESZÁMÍTÁS! ASRock A520M R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA Adata 600W
- Lenovo ThinkPad X1 Yoga G6 (6th Gen) - i7-1185G7, 32GB, 512GB SSD, multitouch + TOLL
- Apple iPhone 15 Pro 1TB,Újszerű,Adatkabel,12 hónap garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
