checklistbox'ta seçili alan kayıt bulma

[Biltes]

Arkdaşlar merhaba;

Öncelikle herkese kolay gelsin... Yapmak istediğim olay kısaca şöyle;
tablodaki gerekli alanlarımı checklistbox'a ekledim. Bunlardan kayıt seçtikçe bir label'da kaçta ne seçim yapıldığını göstermesini istiyorum yada seçim iptal edildiğinde kaç tane kaldığını yani bir çeşit ondatachange olayı gibi...

Bu konuda bana yardımcı olabilirseniz sevinirim..

Herkese şimdiden çok teşekkür ederim.. Kolay gelsin...

[ulu coder]

Merhaba.

Anlayamadım ama 'seçilen/tamamı' şeklinde bi yazı istiyorsanız şunu deneyin.

Kod: Tümünü seç

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  Label1.Caption := inttostr(GetCheckedCount)+'/'+inttostr(CheckListBox1.Count);
end;

function TForm1.GetCheckedCount: Integer;
  var
    i: Integer;
begin
  Result := 0;
  for i := 0 to pred(CheckListBox1.Items.Count) do
  begin
    if CheckListBox1.Checked[i] then
      Result := Result+1;
  end;
end;

[Biltes]

Hocam cevap için çok teşekkür ederim tam istediğim gibi oldu...

Çok saolun...