Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2012.06.03;
Скачать: [xml.tar.bz2];

Вниз

Позиционирование курсора в TMemo.   Найти похожие ветки 

 
JohnKorsh   (2012-01-26 12:41) [0]

Не подскажете ли как грамотно ставить курсор в TMemo на последнюю строку в последнюю позицию для ввода?


 
OW ©   (2012-01-26 12:47) [1]

memo.SelStart := Length(memo.Lines.text);


 
~AQUARIUS~   (2012-01-26 12:48) [2]

Memo1.SelStart := Length(Memo1.Text);


 
Ega23 ©   (2012-01-26 12:53) [3]

Сессия же прошла вроде как? Откуда такой наплыв?


 
OW ©   (2012-01-26 13:00) [4]


> Memo1.SelStart := Length(Memo1.Text);


как привык писать xxx.sql.text, так и в memo хочется что-то указать сначала, сразу получить текст - вроде как не заслужил кажется :)
механическая память, походу :)


 
Сергей М. ©   (2012-01-26 13:03) [5]


> Сессия же прошла вроде как? Откуда такой наплыв?


Другие времена, другие нравы)
Теперь сессии для лодырей длятся круглый год - были бы деньги)


 
JohnKorsh   (2012-01-26 15:51) [6]

Да я так и делаю, но есть непонимание - если программа добавляет стринги в Memo, то пока при выполнении кода вручную не передвинуть курсор на эту самую позицию Memo.SelStart := Length (Memo.Text), он остаётся в начале текста. Потом всё идёт как и положено. Не поясните ли?


 
Сергей М. ©   (2012-01-26 15:58) [7]


> он остаётся в начале текста


А с чего бы ему дергаться ?
Где его поставили - там он и стоит ..


 
JohnKorsh   (2012-01-26 17:24) [8]

for i := 1 to 100 do
begin
 Memo.Lines.Add ("Text");
end;
Memo.SelStart := Length (Memo.Text);

При выполнении кода курсор остаётся в начале текста, хотя текст "уезжает" за пределы экрана.
Если при выполнении кода вручную поставить курсор на конец Text, то,
далее, при добавлении строк программой идёт прокрутка текста и крсор позиционируется как и хотелось.


 
Сергей М. ©   (2012-01-26 17:33) [9]

Ты вот скажи накой шиш тебе понадобилось это ?

Курсор указывает юзеру тек.позицию ввода в тект.поле контрола.

Чего он там, юзер, успеет ввести за то смехотворное время, за которое программа успеет добавить в мемо 100 записей ?


 
Inovet ©   (2012-01-26 17:36) [10]

> [9] Сергей М. ©   (26.01.12 17:33)
> Ты вот скажи накой шиш тебе понадобилось это ?

Наверное лог пишет и надо, чтобы прокручивался.


 
JohnKorsh   (2012-01-27 18:02) [11]

Да, лог. А как написать, чтобы изначально прокручивался знаете?


 
Германн ©   (2012-01-27 18:08) [12]

Попробуй еще добавить
SendMessage(Memo1.Handle,WM_VSCROLL, SB_BOTTOM, 0);


 
Германн ©   (2012-01-28 02:14) [13]

Пока ещё никто ничего не добавил, выскажусь дополнительно.
Совет в Германн ©   (27.01.12 18:08) [12] конечно даёт ответ на желание автора, но если речь действительно идёт о просмотре Журнала Событий "на лету", то сей совет скорее следует считать BadTip. Ибо стандартное поведение самое оптимальное:
1. Хочет пользователь видеть вновь поступающие сообщения сразу - ставит курсор в конец. И получает то что хочет.
2. Хочет подробно рассмотреть/прочитать/осмыслить какое-то "не последнее" - ставит курсор на него. И получает то что хочет.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2012.06.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.004 c
2-1327842847
Alex_C
2012-01-29 17:14
2012.06.03
Считать текстовый файл с диска


2-1327584652
Chuck Bass
2012-01-26 17:30
2012.06.03
сортировка строк в TStringList по убыванию


15-1328276920
Дмитрий
2012-02-03 17:48
2012.06.03
Разработка платного приложения


2-1327567305
JohnKorsh
2012-01-26 12:41
2012.06.03
Позиционирование курсора в TMemo.


15-1328127890
Псарь
2012-02-02 00:24
2012.06.03
Constant 0 converted to NIL,





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский