Скачать: CL | DM;

Синхронное листание 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.....

---

← →
Витязь ©   (2006-12-18 17:28) [4]

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]

Спасибо!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c