Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Синхронное листание ListBox [D6, XP]

apak © (2006-12-18 16:45:00)
Подскажите как сделать так, чтобы при скроллинге одного лисбокса, другой, имеющий такое-же число записей и высоту, автоматически скроллигился на такую же число пукселей.

apak (2006-12-18 22:44:00) [1]
Спасибо!

Витязь (2006-12-18 17:28:00) [2]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
ListBox2: TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
lbproc1, lbproc2: TWndMethod;
procedure NewProc1(var msg: TMessage);
procedure NewProc2(var msg: TMessage);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.NewProc1;
begin
case msg.Msg of
WM_VSCROLL, LB_SETCURSEL,
WM_KEYFIRST..WM_KEYLAST,
WM_MOUSEFIRST..WM_MOUSELAST:
lbproc2(msg);
end;
lbproc1(msg);
end;

procedure TForm1.NewProc2;
begin
case msg.Msg of
WM_VSCROLL, LB_SETCURSEL,
WM_KEYFIRST..WM_KEYLAST,
WM_MOUSEFIRST..WM_MOUSELAST:
lbproc1(msg);
end;
lbproc2(msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
lbproc1 := ListBox1.WindowProc;
ListBox1.WindowProc := NewProc1;
lbproc2 := ListBox2.WindowProc;
ListBox2.WindowProc := NewProc2;
end;

end.

werb (2006-12-18 17:13:00) [3]
Если это в апи или другой топик, sorry.....

dest (2006-12-18 17:12:00) [4]
Оо.. спасибо.
Возник другой вопрос. как установить отлов события на скролл одного из листбоксов, чтобы в этот момент устанавливать скролл другого?.....

clickmaker (2006-12-18 17:05:00) [5]
GetScrollPos -> SetScrollPos или GetScrollInfo -> Set...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »