CheckBox Döngüsü !!!

[ozcank]

Arkadaşlar İşaretli iken DateTimePicker1 - 2 ve Edit1 Button2 alanları True İşaretsiz iken False yapmak istiyorum ama döngüye takılıp hata veriyor yardım ederseniz sevinirim.

Kod: Tümünü seç

CheckBox1.Checked:=True;
DateTimePicker1.Enabled:=True;
DateTimePicker2.Enabled:=True;
Edit1.Enabled:=True;
Button2.Enabled:=True;
CheckBox1.Checked:=False;
DateTimePicker1.Enabled:=False;
DateTimePicker2.Enabled:=False;
Edit1.Enabled:=False;
Button2.Enabled:=False;

[Mustafa_Ucar]

Eğer yanlış anlamadıysam çözüm şu;

Bu kodları checkbox'ın onclick yordamına yazın.

Kod: Tümünü seç

If CheckBox1.Checked=True Then   //:= değil =
begin
 DateTimePicker1.Enabled:=True;
 DateTimePicker2.Enabled:=True;
 Edit1.Enabled:=True;
 Button2.Enabled:=True;
end;

if CheckBox1.Checked=False then
begin
 DateTimePicker1.Enabled:=False;
 DateTimePicker2.Enabled:=False;
 Edit1.Enabled:=False; 
 Button2.Enabled:=False;
end;

Kolay gelsin

[hdayi]

checkbox1'in onklik olayına aşağıdaki kodu yazarsan daha kısa olur.

Kod: Tümünü seç

 DateTimePicker1.Enabled:=CheckBox1.Checked
 DateTimePicker2.Enabled:=CheckBox1.Checked
 Edit1.Enabled:=CheckBox1.Checked
 Button2.Enabled:=CheckBox1.Checked
end

[aslangeri]

Arkadaşlar İşaretli iken DateTimePicker1 - 2 ve Edit1 Button2 alanları True İşaretsiz iken False yapmak istiyorum ama döngüye takılıp hata veriyor yardım ederseniz sevinirim.

Kod: Tümünü seç

...........

ben yardım etmek istiyordum ama kodlarda döngüyü göremedim.