راه اندازي اسكرول

[sajioo]

دوستان عزيز از يك scrollbox در فرم استفاده كردم
مشكل اينه كه چطور اسكرول اين اسكرول باكس با اسكرول موس يا همون چرخ موس پايين يا بالا بشه. بطور عادي كه نميشه .
آيا بايد كدي اضافه كرد؟
دلفي كه من استفاده مي كنم دلفي 7 هستش:متفکر:

[BORHAN TEC]

سلام
دلفی 7 همیشه در قلب ما زنده است.:قلب: نه نه دلفی 7 هیچ وقت نمیمیرد.:کف: خدا دلفی 7 رو رحمت کنه، آقا بزار این دلفی 7 راحت توی آرامگاهش بخوابه دیگه!:افسرده: آخه گناه داره بنده خدا. :متعجب:
باور کن که سازندگان دلفی هم اینقدر روی دلفی 7 تعصب ندارند. این نسخه توی زمان خودش غولی بود، الان دیگه به درد موزه میخوره. :چشمک:
حالا گذشته از این حرفها شما باید از رویداد های OnMouseWheelDown و OnMouseWheelUp استفاده کنید که نمونه ای را قرار داده ام.
procedure TForm4.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position := ScrollBar1.Position + 1;
end;

procedure TForm4.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position := ScrollBar1.Position - 1;
end;

یا حق...

[sajioo]

تشكر گرم و صميمي از شما آقاي عشايري
به هر حال من هم چند وقت ديگه كوچ خواهم كرد از دلفي 7 :قهقهه:

[Emdad2001]

سلام
دلفی 7 همیشه در قلب ما زنده است.:قلب: نه نه دلفی 7 هیچ وقت نمیمیرد.:کف: خدا دلفی 7 رو رحمت کنه، آقا بزار این دلفی 7 راحت توی آرامگاهش بخوابه دیگه!:افسرده: آخه گناه داره بنده خدا. :متعجب:
باور کن که سازندگان دلفی هم اینقدر روی دلفی 7 تعصب ندارند. این نسخه توی زمان خودش غولی بود، الان دیگه به درد موزه میخوره. :چشمک:
حالا گذشته از این حرفها شما باید از رویداد های OnMouseWheelDown و OnMouseWheelUp استفاده کنید که نمونه ای را قرار داده ام.
procedure TForm4.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position := ScrollBar1.Position + 1;
end;

procedure TForm4.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position := ScrollBar1.Position - 1;
end;

یا حق...

سلام ، تو ScrolBox هم میشه ازش استفاده کرد ؟ چون من امتحان کردم نشد :( Delphi XE2

[Felony]

ScrollBox خودش دارای 2 تا Scroll هست ، شما باید تعیین کنی کدوم Scroll مد نظرتون هست ، مثلا :

ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 1;

در ظمن میشه به جای نوشتن اون کدها در 2 رویداد از پارامتر WheelDelta در رویداد OnMouseWheel به صورت زیر استفاده کرد :

if WheelDelta > 0 then
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - 1
else
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 1;