CheckListbox1 problemi

[Armani]

Günaydın arkadaşlar.
CheckListbox1 deki seçili olan seçeneklerde işlem yaptıktan cikart dedikten sonra yine seçili olarak kalıyor. Bunu nasıl kaldırabilirim.

Kod: Tümünü seç

procedure TForm1.CikartClick(Sender: TObject);
var
gerial: integer;
begin
for gerial := 0 to listbox1.items.count -1 do
begin
listbox1.Items.Delete(listbox1.Items.Count -1);

end;

(Kusura bakmayın biraz acemiyim. size göre basit problemlerle zamanınızı alıyorum. )

Teşekkürler

[hdayi]

Ben soruyu anlayamadım. Biraz daha açık yazabilir misin?

[Armani]

ok.
Checlistbox1 de string list editor e ekledigimi kriterleri Aktar butonu ile listbox1 e atıyorum ve işlemi bitiriyorum. yeni işlem yaparken listbox1 deki kriterleri cikart butonu ile kaldiriyorum fakat checklistbox1 deki işaretli olan seçenekleri kaldıramıyorum

[mepc]

işin doğrusu sorunu tam anlayamadım ama eğer bir öğeyi silmek istiyorsan

CheckListBox1.Items.Delete(0);

eğer seçili özelliğini iptal etmek istiyorsan

CheckListBox1.Checked[0]:=false;

kodunu kullanabilirsin.

[gkimirti]

ListBox,CheckListBox gibi bilesenlerin icini temizlemekse amacın
items property sinin clear methodu ile yapabilirsin
ListBox1.Items.Clear; gibi

[husonet]

Merhaba,

Kod: Tümünü seç

var
    i:Integer;
begin
    i:= 0;
    while i < CheckListBox1.Count  do
    Begin
        if CheckListBox1.Checked[i] Then
        Begin
           CheckListBox1.Items.Delete(i);
           Continue;
        End;
        i := i + 1;
    End;
end;

Kolay Gelsin...

[Armani]

(ilginiz içi teşekkürler)
gkimirti den esinlenerek vazgeçmeyecegim

gkimirti, sizin kod chaecklistbox1 deki ne varsa temizliyor. Amacım o değil. checklisbox1 in strin kısmına 100,101,102,103... (Checkbox gibi ) seçenekler koydum. istediklerimi işaretleyip işlme yapıyorum. Amacım işlemi yaptıktan sonra işaretli olanların kaldırılması

(keşke sizin dilin,izden konuşabilsem. Acemi olunca anlatmakta zor oluyor)

[Armani]

husonet teşekkür ederim. Amacımın benzerine ulaştım. geri kalanı ben çözmeye çalışacagım.

[hdayi]

Hüsonet'in yazdığı kodda silmeden önce bir if koyarak check edilip edilmediğini kontrol edebilir ve check edilmişsse silebilirsin.

[Armani]

evet dogru. Ama amacım silmek degil check işareti olanları kaldırmak. husonetin kodlarında biraz değişiklik yapmaya çalışacagım. siz söylemeyin ben biraz cırmalayım. Ogrenmenin tek yolu bu. yapamazsam cevap yazarım.

Saygılar

[Armani]

Burdaki bilgileri toparlayınca tam amacıma ulastım.
ve nasıl bir mantık kurmam gerektigini anladım.

teşekkürler

[P206]

Merhaba,
bu şekilde check li olan satırların checklerini kaldıra bilirsin.
var
i:integer;
begin
for i:=0 to CheckListBox1.Count-1 do
if CheckListBox1.Checked then CheckListBox1.Checked:=false
end;