прокрутка Listboх тракбаром

[digital-stream]

как прокрутит листбох тракбаром не трогая position и чтобы когда прокручиваешь лист колесиком мышки и тракбар за ним успевал

[Ghost of Night]

Зачем на ListBox TrackBar, если там свой Скрол есть?

[digital-stream]

Сообщение от Ghost of Night

Зачем на ListBox TrackBar, если там свой Скрол есть?

значит так надо !

[robt]

Сообщение от digital-stream

как прокрутит листбох тракбаром не трогая position

вопрос гениален по своей тупости
position меняется автоматически при движении ползунка
соответственно его нельзя ненетрогать впринципе

у листбокса есть свойство TopIndex,вот как подружиш его с position,так и будет

Сообщение от Ghost of Night

Зачем на ListBox TrackBar, если там свой Скрол есть?

ну это же некруто скролить скролом ,ты совсем не шариш в разработке GUI

[Stilet]

значит так надо !

Значит придется тебе делать собственную отрисовку, и прикручивать другой тракбар.
Вот пример с роллером:

unit Unit1;

interface

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

type
  TListBox=class(StdCtrls.TListBox)
   private
    procedure wmm(var m:TWMMouseWheel); message WM_MouseWheel;
  end;
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=0 to 100 do ListBox1.Items.Add(IntToStr(random(100)));
 ListBox1.Style:=lbOwnerDrawFixed
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1 do begin
 if ((tag+Index)<0)or((tag+Index)>Count) then exit;
   with Canvas do begin
    FillRect(rect);
    TextRect(Rect,rect.Left,rect.Top,Items[Tag+index]);
   end;
 end;
end;

{ TListBox }

procedure TListBox.wmm(var m: TWMMouseWheel);
begin
 if m.WheelDelta>0 then  tag:=tag-1 else tag:=tag+1;
 Repaint;
end;

end.