Tchecklistbox hakkında bir problem

[mertcenk]

var i: integeR;
begin
for i := 0 to TCheckListBox(self.ActiveControl).Items.count - 1 do
begin
TCheckListBox(self.ActiveControl).Checked := true;
end;
end;

şeklinde bir kod ile checklistbox içindeki itemlerin hepsini seçili hale getiriyorum yada seçimden kaldırıyorum.. popup menude var hepsini seç yada seçimi ipta et olayları....form da 3 tane checklistbox var....mesela checklistbox2 in üstüne gelip sağ tuş ile hepsini seç diyince checklistbox1 de işlem yapıyor .... bu neden olabiliri..

teşk.

[hbahadir]

var i: integeR;
begin
for i := 0 to TCheckListBox(self.ActiveControl).Items.count - 1 do
begin
TCheckListBox(self.ActiveControl).Checked := true;
end;
end;

teşk.

i değişkenin 0 dan başlıyor.

Kod: Tümünü seç

    TCheckListBox(self.ActiveControl).Checked[i+1] := true;

[ertug]

Sağ tıklamayla "ActiveControl" değişmediği için sorun oluyor.

Self.ActiveControl yerine PopupMenu1.PopupComponent kullanınız.

Kolay gelsin.

Not: Kod yazarken Borland'ın önerdiği yazım kurallarına uyunuz. Takım çalışmasında standart yazım kuralları çok önemlidir.