listview1.Checkboxes

[abdulkadir]

S.a
kullandıgım listview de suna ihtiyacım var ama yapamadım.
listview1.Checkboxes:= true;// durumunda

listview1 de Sadece 1 tane Checkbox secilebilsin (radioGruop gibi yani)
Yeni secim eski secimi kaldırmalı.

Kod: Tümünü seç

  for i:=0 to listview1.Items.Count-1 do
    begin
        listview1.Items[i].Checked:=false;
    end;
       listview1.Items.Item[ListView1.ItemIndex].Checked:=true;

bu kod işe yaramadı Checkboxu secemiyorum satırı secince Checkbox seciliyor.

Yardımcı olabilirseniz sevinirim....
Hayırlı işler.........

[mrmarman]

Merhaba.

Yaklaşımın doğru. Öncelikle tüm Item'lerin CheckBox'larının Checked özelliğini False yaparak temizliyor, ondan sonra da seçili olanınkini True yaparak sadece birisini seçili yapmak istiyorsun.

Burada henüz karşılaşmadığın ama karşılaşacağın ana problem seçilen Item'i kontrol etmekten -ki ListView'in Selected özelliği senin aradığın cevaptır- öte, eğer kullanıcı CheckBox'larına tıklayıp check ederse OnClick yordamı tetiklenmeyeceğinden bu kontrolünü aşabiliyor olmaları.

Bunu aşağıdaki şekilde ikili kurgu ile çözebilirsin. İlki senin sorduğun sorunun cevabı. Yani seçili olan varsa önce eskileri temizleyip seçili olanı True yapmak. İkincisi ise kullanıcının direkt CheckBox'a tıklamasını yakalamak.

Kod: Tümünü seç

procedure TForm1.ListView1Click(Sender: TObject);
Var
  i : Integer;
begin
  if ListView1.Selected <> nil then begin
    for i := 0 to ListView1.Items.Count - 1
      do ListView1.Items[i].Checked := False;
    ListView1.Selected.Checked := True;
  end;
end;

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ListView1.GetHitTestInfoAt(X, Y) = [htOnStateIcon] then // Check Yapılmış
    ListView1.Selected := ListView1.GetItemAt(X,Y); // Zaten seçilince otomatik yukardaki OnClick yordamı tetiklenir.
end;

[abdulkadir]

Tesekkür ederim...

işlem dogru ama söyle bir sorun var

2.item check iken
4.item secilince check işemide o satıra uygulanıyor
checked ve selected bagımsız olmalı

söyel acıklayayım
her satırda rapor adı ve yolu yazılyor
bu raporların 1 tanesi defaulttur oda check edilmiş olandır.

rapor sayfası acılıyor yazdırılacak raporu seciyorum (sorun burda ben yazdırmak için sectigimde check olmasın)
rapor sayfasını acmadan yazdırdıgımda default rapor yazdırılıyor(default işlemi ini olarak yazıp okuyorum burda sorun yok)

umarım yazdıklarım anlasılır olmustur...

Sanırım bu olayı burda cözmemiz lazım
biraz denedim ama henüz olamdı.

Kod: Tümünü seç

 
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin

end;

procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin

end;

Saygılar...

[emin_as]

Farklı bir component kullanman sorun olamayacaksa, virtual treeview ya bir gözat derim.

http://www.soft-gems.net/index.php?opti ... &Itemid=33

[abdulkadir]

Farklı bir component kullanman sorun olamayacaksa

şimdilik sorun olacak maalesef
Tesekkür ederim...