Hirdetés
- One mobilszolgáltatások
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Megérkezett a Google Pixel 7 és 7 Pro
- Apple iPhone 16 - ígéretek földje
- Google Pixel topik
- iPhone topik
- Amazfit T-Rex 3 Pro – világítós dínó
- Honor Magic5 Pro - kamerák bűvöletében
- Xiaomi Redmi Note 5 Global
- Samsung Galaxy A71 - elég ennyi?
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
- AMD Radeon 7600 8GB OC HIBÁTLAN!!
- Hibátlan 2+ Év Garancia! GIGABYTE GeForce RTX 4060 EAGLE OC 8GB
- AZONNAL KÉSZLETRŐL! AMD Ryzen 7 9800X3D 64GB 6000MHz RAM 2TB Gen4 SSD RTX 5090 32GB GDDR7 1200W
- AZONNAL KÉSZLETRŐL! Intel Core i5 14600K 64GB 6000MHz RAM 2TB Gen4 SSD RTX 5060 8GB FSP 750W
- AZONNAL KÉSZLETRŐL! Intel Core i5 14600K 32GB 6000MHz RAM 2TB Gen4 SSD RTX 5060 8GB FSP 750W
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA! Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- Apple iPhone 13 / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100%
- BESZÁMÍTÁS! Gigabyte H610M i3 12100F 16GB DDR4 512GB SSD RX 5700 8GB Zalman Z1 PLUS ADATA 600W
- Ultimate előfizetés akár 4166 Ft/hó áron! Azonnali, automatizált aktiválással, csak Nálam!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest


