| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прокрутка в Memo [Delphi, Windows]
XProger © (2004-11-24 02:12:00)По мере работы программы в Memo добавляется неий текст. Как вертикальный скроллбар этой мемо протянуть вниз, до самого конца текста?
Пытался посылать SendMessage на Memo.Handle ничего не вышло... :(
XProger (2004-11-24 18:44:00) [1]MTsv DN, Большое спасибо...
Владимир Кладов, и тебе тож за аналогичный способ...
Просто я - извращенец, и писал что-то наподобии этого :)
while (LOWORD(SendMessage(MemoHandle, EM_SCROLL, SB_PAGEDOWN,0))<> 0) do;
Хотя должно было работать :)
Владимир Кладов (2004-11-24 16:13:00) [2]или так:
Memo1.Add( Txt + #13#10 );
Memo1.SelStart := MaxInt;
Memo1.Perform( EM_SCROLLCARET, 0, 0 );
Gandalf (2004-11-24 10:48:00) [3]Пожалуй побавлю в FAQ
MTsv DN (2004-11-24 10:04:00) [4]Привет, XProger ©...
Вот ответ на твой вопрос...
////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: PObj);
var
i : integer;
begin
for i := 0 to 1000 do
begin
Form1.Memo1.Add('Line '+int2str(i)+#13#10);
Form.ProcessMessages;
SendMessage(Memo1.Handle, EM_SCROLL, SB_BOTTOM, 0);
end;
end;
////////////////////////////////////////////
Успехов... MTsv DN
| |
