Delphi Kursu Checkbox

ANA SAYFA YARDIM KAYNAK HAZIRLAYANLAR

KONULAR

DERSLER

DERS ANLATIMI CHECKBOX

CHECKBOX

Kullanicinin bir secenegi aktif veya pasif duruma getirmesi için kullanýlan bir kontroldür

PROPERTIES

1)Checked
Checked özellgi checkbox kontrolunun isaretli mi, isaretsiz mi oldugunu ögrenmeye ve degistermeye yarar.

: Checkbox1.checked :=true;

: Checkbox1.checked :=false;

2) Aligment :
Bu özellik caption özelligi ile belirlenen yazinin isaretinin sagina mi, soluna mi yazilacagini belirler.

:Checkbox1.aligment :=taleftjustify;

: Checkbox1.aligment :=tarightjustify;

PROGRAM ÖRNEGI
Asagidaki formu olusturun.

Program Kodları

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then //checkbox1 isaretliyse
edit1.Text:=inttostr(strtoint(edit1.Text)+200) //edit1 e 200 topla
else //isaretli deyilse
edit1.Text:=inttostr(strtoint(edit1.Text)-200); // edit1 den 200 çikart
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then //checkbox2 isaretliyse
edit1.Text:=inttostr(strtoint(edit1.Text)+100) //edit1 e 100 topla
else //isaretli deyilse
edit1.Text:=inttostr(strtoint(edit1.Text)-100); // edit1 den 100 çikart
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
// radio
begin
if CheckBox3.Checked then //checkbox3 isaretliyse
edit1.Text:=inttostr(strtoint(edit1.Text)+60) //edit1 e 60 topla
else //isaretli deyilse
edit1.Text:=inttostr(strtoint(edit1.Text)-60); // edit1 den 60 çikart
end;