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




Вниз

Как синхронно скролировать два Memo or ListBox a 


Mitrofan   (2002-01-25 11:39) [0]

Имеется к примеру два Memo или ListBox"a с одинаковым количеством строк в каждом. Как сделать чтобы при скролировании одного второй автоматически скролировался на такое же положение скрола ?

Андрей.



Mitrofan   (2002-01-25 19:23) [1]

Неужели никто не подскажет ? :(



MBo   (2002-01-26 07:56) [2]

Получалось отслеживать скроллинг мышью, перекрыв wndproc. Но не работало(да и не надо было) при прокрутке клавишами up/down.
это примерно так
TForm1 = class(TForm)
private
OldLBProc:TWndMethod;
procedure NewLBProc(var msg: TMessage);

procedure TForm1.FormCreate(Sender: TObject);
begin
OldLBProc := ListBox1.WindowProc;
ListBox1.WindowProc := NewLBProc;
end;

procedure TForm1.NewLBProc(var msg: TMessage);
begin
OldLBProc( msg );
if msg.msg=WM_VSCROLL then
listbox2.perform(wm_vscroll,msg.wparam,msg.lparam);
end;




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




Наверх





Память: 0.71 MB
Время: 0.03 c
3-32141           TAN                   2002-01-14 13:19  2002.02.11  
TUpdateSQL


1-32199           BJValentine           2002-01-29 12:26  2002.02.11  
Excel + Delphi=...


7-32357           Dankin                2001-11-05 03:44  2002.02.11  
Помогите пожалуйсто, если кто знает КАК МОЖНО УЗНАТЬ КОЛИЧЕСТВО УСТАНОВЛЕННОЙ ВИДЕО ПАМЯТИ НА КАРТОЧКЕ, И можноли узнать количество свободной памяти.


14-32323          onjin                 2001-12-21 08:47  2002.02.11  
Алгоритм


1-32236           Rahim & Vad      2002-01-27 16:58  2002.02.11  
Отчаенье! Проблеммы с выводом на широкий формат! ПоМОООО гитееее