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

Вниз

Подскажите пожалуйста!   Найти похожие ветки 

 
novice_al   (2002-07-23 08:15) [0]

Уважаемые мастера! Пожалуйста подскажите! Есть TMemo в нём есть вертиальный скролл.Нужно чтобы при добавлении текста скроллинг работал автоматом в конец текста.


 
RV   (2002-07-23 08:32) [1]

ScrollMessage.Msg:=WM_VScroll;
for i := Memo1.Lines.Count DownTo 0 do
begin
ScrollMessage.ScrollCode:=sb_LineUp;
ScrollMessage.Pos:=0;
Memo1.Dispatch(ScrollMessage);
end;
и по аналогии


 
MBo   (2002-07-23 08:52) [2]

procedure TForm1.Memo1Change(Sender: TObject);
begin
memo1.selstart:=length(memo1.lines.text);
end;


 
RV   (2002-07-23 09:09) [3]

кстати, у меня почему-то скроллинг всегда работает автоматом в конец текста, если добавляю


 
novice_al   (2002-07-23 09:27) [4]

To MBo - Это курсор в конец текста, но не скролл
To RV - а у меня как ни странно не работает


 
MBo   (2002-07-23 09:33) [5]

memo1.perform(EM_LINESCROLL,0,memo1.lines.count);


 
novice_al   (2002-07-23 09:43) [6]

Спасибо! Вот теперь всё работает!



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

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

Наверх





Память: 0.45 MB
Время: 0.005 c
1-13659
Strel
2002-07-23 01:04
2002.08.05
Ошибка


14-13819
DenKop
2002-07-10 02:01
2002.08.05
Вопрос любителям PIC и I2S


4-13862
NOVLAD
2002-05-27 17:35
2002.08.05
cryptoAPI для DELPHI


3-13545
olegg
2002-07-15 18:26
2002.08.05
Ребята, а как получить имя SQL-сервера в ОДБС по имени источника


6-13758
Jammer
2002-05-11 12:13
2002.08.05
отправка файлов по FTP





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский