تعریف دو کلید به جای دو کلیدScrollbar

[sensual_boy]

با عرض سلام و احترام/چطور میشه دو کلید تعریف کرد که این دو کلید به جای دو کلید Scroll برای پیمایش در Scrollbox عمل کنند. ضمنا من از این کد استفاده کردم
ScrollBox1.ScrollBy(-50,0);
این کد دقیقا همانند کلیدهای Scroll عمل نمیکند. با هر بار کلیک مقدار 50 به طرف راست حرکت میکند ، یا به عبارت دیگه مقدار 50 به Scrollbox اضافه میکنه در صورتی که هیچ شیء وجود ندارد، من میخوام به اندازه محتوی شی این حرکت انجام شه

[Hamid_PaK]

اگر کنترل داخل این ScrollBox یکپارچه (Image) باشد، شما باید با استفاده از واقعه OnMouseDown, Move, Up کنترل داخل این ScrollBox آن را راهنمایی و حرکت دهید.

یا حق ...

[sensual_boy]

خیر، من دقیقا میخوام عملکرد کیدهای دو طرفه Scroll در مورد دو Button عمل کنند.
حال سئوالم اینه که با چه کدی میشه عمکرد دو کلید Scroll رو شبیه سازی کرد

[Hamid_PaK]

ببینید شما باید یک شئی درون scrollbox داشته باشید تا scrollهای آن فعال و قابل استفاده شوند!!!
سپس از خصوصیت تک تک ScrollBar ها برای تعیین موقعیت آنها استفاده کنید.

ScrollBox1.HorzScrollBar.Position := 5;

یا حق ...

[sensual_boy]

داخل Scrollbox شیء به اندازه کافی تا جایی که Scrollها را فعال کند وجود دارد. از این کد هم استفاده کردم،منتها Postion فقط موقعیت Scroll را تعیین میکند و با کلیک دوباره این عمل تکرار نمیشود.
همانطور که اول گفتم من کلیدی میخواهم که دقیقا همانند کلیدهای Scroll عمل کند.
مثلا. با یکبار کلیک به مقدار معین Scroll انجام میشود. یا با فشرده نگه داشتن ماوس روی دو کلید Scroll میدانید که پیمایش بدون وقفه تا زمان به پایان رسیدن اشیاء ادامه پیدا میکند.
حالا میخوام بدونم کدی وجود داره که این حالات رو در مورد Buttonهای اختیاری انجام بده.
با احترام و عذرخواهی از طولانی شدن سئوالهای بنده

[Hamid_PaK]

نوشتن یک تابع که دقیقا عمل دکمه های اسکرول باکس رو شبیه سازی کنه عملا کار سختی نیست ! من با نوشتن اون فرمان فقط قصد نمایش روش کار رو داشتم.
مثلا همون کد به این شکل تصحیح خواهد شد:

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

یا حق ...