Синхронное листание ListBox

← →
apak (2006-12-18 16:45) [0]

Подскажите как сделать так, чтобы при скроллинге одного лисбокса, другой, имеющий такое-же число записей и высоту, автоматически скроллигился на такую же число пукселей.

← →
clickmaker © (2006-12-18 17:05) [1]

GetScrollPos -> SetScrollPos или GetScrollInfo -> Set...

← →
dest (2006-12-18 17:12) [2]

Оо.. спасибо.
Возник другой вопрос. как установить отлов события на скролл одного из листбоксов, чтобы в этот момент устанавливать скролл другого?.....

← →
werb (2006-12-18 17:13) [3]

Если это в апи или другой топик, sorry.....

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.

← →
apak (2006-12-18 22:44) [5]

Спасибо!

Синхронное листание ListBox Найти похожие ветки