ساخت Scrollbar با تنظیمات دستی برای کنترل فرمها

[delphiprog3000]

با سلام به دوستان واساتید. سوال بنده اینه که میخواهیم مانند خاصیت AutoScroll فرمها که اگر شی بیرون از قالب فرم قرار گرفت فعال میشود. این را به صورت دستی با استفاده از شی Scroll bar انجام دهیم. و فرم مرود نظر را با استفاده از Scrollbar که خودمان رو فرم قرار دادیم به حرکت درآوریم. آیا دوستان میتوانند کدهای مریوط به اسکرول بار که منجر به حرکت فرم به بالا و پایین میشود را قرار دهند؟ با تشکر...........

[حمیدرضاصادقیان]

سلام.شما با استفاده از متد SCROLLBY خود فرم میتونی به مقدار لازم فرمت رو حرکت بدی. در رویداد ONSCROLL خود scrollbar کنترل میکنی اگر زیاد شد این مقدار رو زیاد میکنی اگر کم شد کمش میکنی.
تازه برای اینکه زیباتر بشه اول که فرمت ایجاد میشه اونو visible=false قرار میدی.بعد یک سایز مشخصی برای فرمت در نظر میگیری زمانی که اندازه فرمت تغییر کرد در رویداد onresize خود فرم visible=true برای scrollbar . بعد هم که کدت رو در رویدادهای scrollbar مینویسی.
موفق باشید.

[delphiprog3000]

سلام.شما با استفاده از متد SCROLLBY خود فرم میتونی به مقدار لازم فرمت رو حرکت بدی. در رویداد ONSCROLL خود scrollbar کنترل میکنی اگر زیاد شد این مقدار رو زیاد میکنی اگر کم شد کمش میکنی.
تازه برای اینکه زیباتر بشه اول که فرمت ایجاد میشه اونو visible=false قرار میدی.بعد یک سایز مشخصی برای فرمت در نظر میگیری زمانی که اندازه فرمت تغییر کرد در رویداد onresize خود فرم visible=true برای scrollbar . بعد هم که کدت رو در رویدادهای scrollbar مینویسی.
موفق باشید.

با سلام.
از پاسخ بیمانند شما متشکرم.

اما تنها مشکل بنده با همان قسمتی که شما گفتی که : (در رویداد ONSCROLL خود scrollbar کنترل میکنی اگر زیاد شد این مقدار رو زیاد میکنی اگر کم شد کمش میکنی)

اگه ممکنه با مثال نمونه کد رو بنویسید.زیرا در این باره اطلاعات اندکی دارم.و شاید این نمونه کد کمکی برای سایر دوستان نیز باشد. با تشکر از دوست عزیزم........

[حمیدرضاصادقیان]

سلام.
لینکهای زیر کمکت میکنه
http://delphi.wikia.com/wiki/TScrollBar_Class
http://docs.codegear.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/StdCtrls_TScrollBar.html
http://www.delphipages.com/records.cfm?kw=scroll+bar