Siz bilan birgalikda Delphi dasturlash tilida Labelni Font xususiyatlarini ko’rib chiqamiz

Delphi uchun birorta IDE ni ishga tushiramiz. Men doimgiday Delphi 7 ni ishga tushirdim.

Labelni qo’yamiz, Keyin Label ni bosib Object Inspectordan Events bo’limiga o’tamiz. 

U yerdan OnMouseMove xodisasiga quyidagicha kod kiritamiz :

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  Label1.Font.Style := Label1.Font.Style + [fsBold];

  Label1.Font.Style := Label1.Font.Style + [fsItalic];

  Label1.Font.Style := Label1.Font.Style + [fsUnderline];

  Label1.Font.Style := Label1.Font.Style + [fsStrikeOut];

end;

Bu yerda Label1 ning Font bo’limidagi Style xususiyatiga indeks ko’rinishida har-xil o’zgartirishlar berayapmiz.

1-     fsBold – Yiriklashtirish uchun

2-     fsItalic – Yotiq qilish uchun

3-     fsUnderline – Tagchiziq chizish uchun

4-     fsStrikeOut – Yozuvni ustiga chiziqish uchun

Endi dasturni ishga tushiramiz. Labelni ustiga sichqoncha ko’rsatkichini olib borsangiz nima bo’lishini o’zingiz ko’rasiz.

Endi yana bitta ish qoldi. Sichqoncha ko’rsatkichi Labelni ustidan ketganda Labelni ko’rinishini o’z holiga qaytarish kerak.

Endi Labelni OnMouseLeave xodisasiga quyidagicha kod yozamiz.

procedure TForm1.Label1MouseLeave(Sender: TObject);

begin

  Label1.Font.Style := Label1.Font.Style - [fsBold];

  Label1.Font.Style := Label1.Font.Style - [fsItalic];

  Label1.Font.Style := Label1.Font.Style - [fsUnderline];

  Label1.Font.Style := Label1.Font.Style - [fsStrikeOut];

end;

Ko’rib turganingizdek faqat bir xil o’zgarish bo’ldi, ya’ni “+” o’rniga “–“ qo’yildi. Shu bilan Label o’z xoliga qaytadi.

O’zi buni umuman quyidagicha qilish mumkin edi :

     Label1.Font.Style := Label1.Font.Style + [fsBold, fsItalic, fsUnderline, fsStrikeOut];

va

     Label1.Font.Style := Label1.Font.Style - [fsBold, fsItalic, fsUnderline, fsStrikeOut];

Sizga bularni tushuntirish uchun boshqacha qilib yozgandim. Sizga maslahatim oxirgi ko’rsatgan ko’rinishda qiling!

Labelni juda ko’p xususiyatlari bor.

Misollar keltiraman :

Labelni ustiga sichqoncha borganida razmeri o’zgaradigan qilish mumkin :

  Label1.Font.Size  := 50;

Sizga quyidagi vazifalarni topshiraman.

1 -  Sichqoncha borganida rangi o’zgarsin va o’z xoliga qaytsin

2 – Sichqoncha borganida shrift ko’rinishi o’zgarsin masalan Arialga.