|
Siljitish yo‘lchasiga ega panel (TScrollBox)
|
| bet | 7/18 | | Sana | 13.09.2022 | | Hajmi | 1.07 Mb. | | #25864 |
Bog'liq 1-mavzu Техник ехсплотатсия курс иши Сидиқов О, Hayot Faoliyati Xavfsizligi 3-Amaliy, 15.11 rus tili milliy maktablar rus tili rus maktablar(2), SINF RAHBARINI BAHOLASH MEZONI 2022, Bozor muvozanati maksimal va minimal narxlar, abu-ali-ibn-sino-va-uning-falsafiy-qarashlari, 1-Labaratoriya Muntazam ko\'pburchaklarSiljitish yo‘lchasiga ega panel (TScrollBox)
TScrollBox komponentasining oddiy Panel komponentasidan farqi siljitish yo‘lchasiga ega bo‘lishi mumkinligidir.
- TScrollBox
Formaga TScrollBox komponentasini o‘rnatib, uning ichiga (TImage). komponentasini o‘rnating. Endi Image1 ga katta rasm joylab, AutoSize xossasiga true qiymatini bering. Agar Image1 komponentasida rasm kattaligini olib ScrollBox chegarasiga sig‘may qolsa, siljitish yo‘lchalari paydo bo‘ladi.
TCheckListBox)__TCheckListBox'>Markirovka qilingan ro‘yxat (TCheckListBox)
TCheckListBox komponentasi TListBox, komponentasiga juda o‘xshash, faqat har bir ro‘yxat yonida TCheckBox komponentasidagi kabi ajratish to‘rtburchagi mavjuddir.
Ro‘yxat kiritish uchun Items xossasi qatorida ikki marta chertish lozim.
TCheckListBox yana bir xossasi – columns, yani ustunlar sonidir. Agar bu xossa qiymati birdan katta bo‘lsa va ro‘yxat bir ustunga sig‘masa, ko‘rsatilgan sonli ustunlarga ajratiladi.
Quyida shu elementdan foydalanilgan dastur formasini keltiramiz.
OK tugmasining OnClick hodisasi uchun quyidagi prosedurani kiritamiz:
procedure TForm1.OKButtonClick(Sender: TObject);
var
i:Integer;
Str:String;
begin
Str:='Siz tanladingiz ';
for i:=0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
Str:=Str+CheckListBox1.Items[i]+' ';
Application.MessageBox(PChar(Str), 'Dikkat!!!');
end;
Dastur ishlash natijasiga misol.
Ajratish yo‘lchasi (TSplitter)
Agar Windows Explorerni ochib ko‘rsak oynasi ikkiga ajralgan bo‘lib, o‘rtasida siljitish mumkin bo‘lgan yo‘lchani ko‘ramiz. Mana shu effektni TSplitter komponentasi yaratishga imkon beradi.
|
| |
