scrollbox'u mouse ile kaydırabilirmiyim..

[serkan]

selam arkadaşlar..Acaba scrollboxun dikey kaydırma cubuğunu mousedaki scroll tekeri ile yukarı aşağı kaydırabilirmiyim.Herkese Kolay gelsin

[hbahadir]

Kod: Tümünü seç

Delphi syntax:

procedure DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; dynamic;

[yakupk]

Merhaba bu cavebı biraz daha açabilirmisiniz örneği yapamadım, iyi çalışmalar.

[serkan]

küçük bir örnek program kodları ile birlikte aşağıdaki linkten indirebilirsin...

http://www.tekkalem.com.tr/files/demo_source.zip

[yakupk]

merhaba link kırık sanırım, tekrar kontrol edebilirmiyiz?

[yakupk]

merhaba

tekrar deneyince oldu, elleriniz dert görmesin sağolun.



http://www.tekkalem.com.tr/files/demo_source.zip

[yakupk]

Kusura bakmayın tekrar rahatsız ediyorum ama,

scrollbox ın uzunluğu aşağı kaydıkça artıyor, artmaması lazım, son noktaya gelince durmasını istiyorum ama devam ediyor

[yakupk]

arayan arkadaşlara çözüm olması için gönderiyorum
kullanılan componentin ismini scrollbox1 yerine yazılacaktır.


case WheelDelta of
120:
begin
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEUP,0);
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEUP,0);
end;
-120:
begin
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEDOWN,0);
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEDOWN,0);
end;
240:
begin
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEUP,0);
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEUP,0);
end;
-240:
begin
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEDOWN,0);
SendMessage(scrollbox1.Handle,WM_VSCROLL,SB_LINEDOWN,0);
end;

end;