TScrollBox+TImage mousewheel

[oklawa]

Bir scrollbox içine bir resim koydum. Align ise alclient.
Scrollbox'un scrollbarlarını invisible yaptım.
http://delphi.about.com/od/adptips2006/qt/panning.htm ile bir farenin bir butonuna basılı tutup resmi 'pan' edebiliyorum.
İhtiyacım sadece dikey olarak hareket ettirmek ve en kullanışlı yolu mousewheel'i kullanmak.
TImage nesnesinde wheel olayları yok.
Scrolbox'un wheelup ve down olaylarını nasıl kullanabilirim.

http://www.programmersheaven.com/mb/del ... /?S=B20000

Kod: Tümünü seç

Depending on what you want the mouse wheel to do, there might be an easier way.
If you need the wheel to scroll vertically, I would suggest that you place the TImage into a TScrollBox and let the scrollbox handle the mouse wheel.

Ama nasıl yapacağım konusunda bir örnek içermiyor.

[serkan]

forma bir applicationevents koyup onmessage olayına;

Kod: Tümünü seç

var
i: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam) ;
if i > 0 then
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position-15
else
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position+15
end;

kodlarını yazarsan çalışması lazım..

[oklawa]

Teşekkürler..

Kod scroolbarları invisible yapınca çalışmıyor.
Yinede soruna çözüm olacak fikirler üretmemi sağladı.

[nodetail]

Merhaba buna benzer birşey arıyorum yalnız mutlaka image veya panel üzerindeyken wheel çalışalı mouse bunların üzerinde değils çalışmamalı nasıl yapabilirim bunu