+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Listview Checkbox Sorunu (/showthread.php?tid=871)
Listview Checkbox Sorunu - codder71 - 09-04-2017
Merhabalar
Arkadaşlar Listview de Listview.Edit := True; kodu ile checkboxları aktif edebiliyoruz. Yalnız burda bir sıkıntı mevcut listviewdeki öğenin her hangi bir yerine tıkladığımızda checkbox true oluyor. Bunu sadece checkboxun üstüne tıklayarak yaptırabilirmiyiz. Yani kullanıcı secmek isterse ancak checkbox ustune tıklayarak secebilecek diğer yerlerine tıkladığı zaman öğe ile ilgili diğer özellikleri göstermek istiyorum. Yardımlarınızı bekliyorum. Herkese iyi çalışmalar.
Cvp: Listview Checkbox Sorunu - Fesih ARSLAN - 10-04-2017
Merhaba,
Daha önce formda bu konu ile ilgili bir makalem vardı: ListView GlyphButton nesnesini CheckBox gibi kullanmak.
Listview Checkbox Sorunu - codder71 - 11-04-2017
Merhaba
Hocam cevabınız için öncelikle teşekkür ederim. Hocam makaleyi inceledim öncelikle örneği derleyip cihazımda test ettim. Sıkıntısız görseldeki gibi çalışıyor hocam yalnız isteğimi karşılamıyor. Eklenen kayıt nesnesinin neresine tıklarsam tıklayım checkbox true oluyor. Benim istediğim ise sadece checkbox üstüne tıkladığımda aktif olması bunu yapmanın bir yolu var mı acaba yardımlarınızı bekliyorum teşekkürler.
Cvp: Listview Checkbox Sorunu - Fesih ARSLAN - 11-04-2017
Merhaba,
ListView DynamicAppearance yapısında bir Item içerisinde bulunan herhangi bir alt Item'a ulaşmak için ListView'in OnButtonClick veya OnItemClickEx olayı kullanılmalıdır.
Check işlemini bir Type kontrolü ile bu olayda gerçekleştirmeniz yeterli olacaktır.
Örnek, OnItemClickEx olayı
var Button: TListItemGlyphButton; begin if (ItemObject is TListItemGlyphButton) then begin Button := TListItemGlyphButton(ItemObject); Button.Checked := Not Button.Checked; lblBilgi.Text := 'GlyphButton tıklandı'; end; if (ItemObject is TListItemText) then lblBilgi.Text := 'Text tıklandı'; end;