قسمت دوازدهم

عنصر TComboBox :
این عنصر همانند عنصر ListBox‌ لیستی از عناصر را در اختیار ما می گذارد با این تفاوت که در این عنصر تنها می توان یک گزینه را انتخاب نموده و با توجه به آن گزینه عمل خاصی انجام شو د.
خواص ==>
Items : با نتخاب این خاصیت می توان متن گزینه ها را وارد نمود . البته در حین اجرای برنامه نیز می توان از متد Add این خاصیت نیز استفاده نمود .
Text‌ : این خاصیت متن انتخابی و نمایش داده شده در عنصر را تنظیم می کند .

رویداد ==>
OnChange : این رویداد در موقعی که کاربر یک متن موجود در قسمت متنی عنصر تغییر کند فراخوانی می شود .
OnCloseUp : در موقعی که لیست نمایش داده شده این عنصر پنهان می شود این رویداد عمل می کند .
OnSelect : این رویداد در موقع انتخاب گزینه از لیست فراخوانی میشود .

عنصر TScrollBar :
از این عنصر برای پیمایش استفاده می شود .
خواص ==>
Kind : این خاصیت نوع نمایش نوار پیمایش را مشخص می کند که به صورت افقی (sbHorizontal) و یا به صورت عمودی (sbVertical) باشد .
LargeChange : با مقداردهی به این خاصیت که در بازه 1 تا 32767 می باشد مشخص می شود در موقعی که کاربر بر روی نوار پیمایش کلیک می کند مقدار نوار پیمایش به چه مقدار افزایش یابد .
Max و Min : مقدار نهایی و اولیه را مشخص می کنند .
PageSize‌ : این خاصیت اندازه دکمه تغییر موقعیت نوار را تنظیم می کند .
Position : موقعیت و مقدار نوار را مشخص می کند .
SmallChange : در موقعی که کاربر بر روی دکمه های رفت و برگشت نوار کلیک می کند به اندازه مقدار این خاصیت نوار پیمایش جابجا می شود .

رویداد ==>
Onchange‌ : این رویداد در موقعی که موقعیت نوار پیمایش تغییر می کند فراخوانی می شود .

** مثال :
* یک برنامه جدید ایجاد کنید و خواص فرم آن را به صورت زیر تنظیم کنید :

Form1.AutoScroll := False ;
Form1.Width := 390 ;
Form1.height := 255 ;

* دو عنصر TScrollBar را بر روی فرم قرار دهید و خواص هر یک را به صورت زیر تنظیم کنید .

ScrollBar1.Top := 208 ;
ScrollBar1.Left := 8 ;
ScrollBar1.Kind := sbHorizontal ;
ScrollBar1.PageSize := 10 ;
ScrollBar1.Min := 0 ;
ScrollBar1.Max := 100 ;
ScrollBar1.LargeChange := 10 ;
ScrollBar1.SmallChange := 10 ;

ScrollBar2.Top := 8 ;
ScrollBar2.Left := 360 ;
ScrollBar2.Kind := sbVertical ;
ScrollBar2.PageSize := 20 ;
ScrollBar2.Min := 0 ;
ScrollBar2.Max := 100 ;
ScrollBar2.LargeChange := 10 ;
ScrollBar2.SmallChange := 10 ;

* از صفحه Additional یک عنصر TImage بر روی فرم قرار دهید .
* در رویداد OnCreate فرم کدهای زیر را وارد نمائید :

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Width := 490 ;
Image1.Height := 355 ;
Image1.Left := 0 ;
Image1.Top := 0 ;
Image1.Picture.LoadFromFile('C:My DocumentsMy PicturesCliff in Clouds.bmp');
end;

* در رویداد OnChange عنصر ScrollBar1 کد زیر را وارد نمائید :

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Image1.Left := -(ScrollBar1.Position)
end;

*در رویداد OnChange عنصر ScrollBar2 کد زیر را وارد نمائید :

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Image1.Top := -(ScrollBar2.Position)
end;

== حال برنامه را اجرا کنید و موقعی نوار پیمایش را تغییر دهید خواهی دید که پیمایش بر روی عکس انجام می شود .