PDA

View Full Version : حرکت اسکرول در دلفی xe5


sajioo
یک شنبه 05 مرداد 1393, 13:26 عصر
دوستان من کد زیر را نوشتم





procedure TForm4.sScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);beginTsScrollBox(Sender).VertScrollBar.Po sition:=TsScrollBox(Sender).VertScrollBar.Position +100;
end;
procedure TForm4.sScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);beginTsScrollBox(Sender).VertScrollBar.Po sition:=TsScrollBox(Sender).VertScrollBar.Position-100;
end;



اما وقتی چرخ موس را می چرخونم نه بالا میره نه پایین.
دلفی xe5 هستش .لطفا راهنمایی کنید.
یوسف زالی
یک شنبه 05 مرداد 1393, 14:39 عصر
باید اشیای شما درون باکس موجب نمایش داده شدن اسکرول شده باشن تا این رویداد کال بشه.
sajioo
یک شنبه 05 مرداد 1393, 17:00 عصر
خوب کلا چکار کنم این اسکرول حرکت کنه؟
یوسف زالی
یک شنبه 05 مرداد 1393, 22:23 عصر
همون کدی که گذاشتی رو تست کردم کار کرد.
sajioo
سه شنبه 07 مرداد 1393, 08:56 صبح
همون کدی که گذاشتی رو تست کردم کار کرد.


عجیبه.
چرا به نظرت کار نمی کنه؟ از این نیست که اشیای موجود در این کامپوننت را ران تایم تولید می کنم؟ دیگه چیزی به نظرم نمی رسه:متفکر:
یوسف زالی
سه شنبه 07 مرداد 1393, 13:12 عصر
کدتو بذار برادر من