checkbox durum

[ademcicek]

merhaba checkbox sa bir procedure yazdım.

bu procedure de checked ise şunu yap değilse şunu yap diyorum.

yalnız checkbox hiç secilmediğinde nesneye hiç bir şekilde clicklenmediğinde o yazmış olduğum procedure hiç çalışmıyor doğal olarak.

yani checkbox un kullanıcı secili olmasını istemediği durumlarda benim seçili olmayan durumlarda şunu yap dediğim satırları görmesini nasıl sağlarım.
kolay gelsin

[MicroChip]

şöyle aklıma bişey geldi form oluşurken veya show edildiğinde kontrol ettirirsin ona göre procedureleri çalıştırırsın sonuç oke

kolay gelsin

[mrmarman]

Selam...

- İstediğiniz bir anda (bu, bir buton basılması, bir alana girilmesi olabilir)

Kod: Tümünü seç

CheckBox1Click(Self);

gibi bir kod yazarak, CheckBox'e basılmış gibi işlem yaptırabilirsiniz. Bu kod asla işaret koymaz veya işareti kaldırmaz... Sanıyorum istediğiniz de tam bu olay...

- Hem işareti değişsin hem de basılmış gibi işlem yapsın isterseniz,

Kod: Tümünü seç

CheckBox1.Checked := NOT CheckBox1.Checked;

şeklinde bir kod yazarsınız... Bu size işareti varsa yok, yoksa var yapar ve takiben de daha yukardaki işlemi otomatik gerçekleştirir.

[ademcicek]

arkadaşlar bir türlü çıkamadım içinden.
formun showuna checkbox durum procedure nü nasıl tanımlayacam.
herkse kolay gelsin

[mussimsek]

Adem,

yapmak istediğin şeyi tam olarak anlayamadım. Arkadaşlar genel izahat vermişler ama yapmak istediklerini lafla anlatabilir misin?

Kullanıcı checkbox'ı işaretleyecek sonra butona basacak burda şunu şunu yapmak istiyorum vs. vs. gibi.

Kolay gelsin.

[ademcicek]

benim 20 tane checkbox um var bir formda. checkboxların click ine

eğer checkbox1.checked ise
adem yaz
değilse
çiçek yaz dedim.

bu checkboxların bulunduğu form show edildiğinde eğerki checkbox üzerinde hiç bir işlem yapılmamış ise yani checkboxsun hiç bir olayı çalıştırılmadığında yukarıda yazmıl olduğum kodun çalışmasını istiyorum.

hiç bir şekilde cliclenmemiş ise

veritabanına çiçek diye yazmasını istiyorum.
çünkü ciliklenmediğinde checkboxun checkde:=false oluyor.

şuan yazmış olduğum kodlarda bu doğal olarak çalışmıyor. çünkü click yapılmadan click e yazmış olduğum kodlar çalışmaz.

bilmiyorum hiç olmayacak bir şeymi düşünüyorum. ama click olmadan checkboxun checked false gibi duruyor.

inşallah anlatabilmişimdir.
ilginize çok teşekür ederim arkadaşlar.
herkese kolay gelsin.

[gkimirti]

hocam sende kodunu kontrol etmek istedigin yere yada oncreate e falan yaz

Kod: Tümünü seç

procedure TForm2.FormCreate(Sender: TObject);
begin
  if CheckBox1.Checked then
    caption:='ali'
  else
    caption:='veli';
end;

bunu mu istiyorsunuz yani

[P206]

merhaba,

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do begin
if (Components is TCheckBox) then begin
if TCheckBox(Components).Checked then TCheckBox(Components).Caption:='çekli'
else TCheckBox(Components).Caption:='değil'
end;
end;
end;

kodunu yazarsan ilk anda formda ne kadar Checkbox ın varsa kontrol ederek caption larını değiştirir.

umarım biraz yardımcı olabilmişimdir.

[ademcicek]

arkadaşlar aradığım cevabı buldum.


bütün hepsinin kontrolünün o procedure formun açılışında tanımlayarak hallettim.

normalde sorduğum şeyin cevabı yazmış olduğum tüm kodları ya hepsini tekrar yamaktı yada aşağıdakiydi.....

cxCheckBoxlarCheckedDurumu(Sender);

herkese teşekür ederim.
kolay gelsin.