[Delphi] TListBox odchyt otočení kolečkem myši.

[dyžon]

Zdravím,

potřeboval bych u Listboxu odchytávat otočení kolečkem myši,
respective při otočení kolečkem potřebuju vědět, index položky, která je zrovna nahoře.
jediné, co mě napadlo je tohle:

Kód: Vybrat vše

type
  TListBox = class(Vcl.StdCtrls.TListBox)
  protected
    procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MouseWheel;
  end;

     ...........

procedure TListbox.WMMouseWheel(var Message: TWMMouseWheel);
begin
  inherited;
   Form1. Label1.Caption:= IntToSTr(Form1.ListBox1.TopIndex);
end;

tohle funguje, ale do labelu se vypíše hodnota až když se kolečko dotočí.
příklad otočím kolečkem o tři pozice v tahu, v listboxu se položky pohnou o 9 míst a vypíše se hodnota vrchního.
já bych potřeboval aby se ta hodnota vrchní položky vypsala po každém pootočení, ikdyž je to v tahu třeba 10 pootočení.
ScrollBar Listboxu se pohne přesně po každém pootočení, takže ta informace někde je, ale nepodařilo se mi ji najít.
Pomůžete mi s tím prosím, snad jsem to popsal dostatečně.

[Just_jo]

Použil jsem něco podobného

Kód: Vybrat vše

TMyListBox = class(TListBox)
    protected
      procedure WndProc(var Msg: TMessage );override;
  end;


Kód: Vybrat vše

procedure TMyListBox.WndProc(var Msg: TMessage);
begin
inherited;
if( Msg.Msg = WM_MOUSEWHEEL ) then Form1.Label1.Caption:= IntToSTr(mylistbox.TopIndex);
end;


Funkce reaguje lépe - ale objekt se musí vytvořit za běhu aplikace.
Při použití tvé to opravdu vypíše až po animaci.

Nebo lze použít OwnerDraw a událost OnDrawItem - ale musíš se postarat o vykreslení

[dyžon]

jasně, děkuju.

ješt bych rád vyzkoušel i tu druhou metodu, ale moc se nechytám,
můžeš prosím nastínit, jak postarat o ykreslování ..??

[Just_jo]

Tady je jeden díl - zbytek si můžeš najít
https://www.zive.cz/clanky/tipy-a-triky-v-delphi-dil-148---radiobuttony-v-listboxu/sc-3-a-118511/default.aspx

[dyžon]

aha,
už vím jak to myslíš ...

bohužel tady je to stejný, vypisuje až po celé animaci.
i tak díky moc.