Genel İşlemler - 1'den Fazla Listview Ekleyemiyorum

Sayfayı Yazdır | Pencereyi Kapat

1'den Fazla Listview Ekleyemiyorum

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=597
Tarih: 06 Ocak 2025 Saat 14:04
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: 1'den Fazla Listview Ekleyemiyorum

Mesajı Yazan: ahmetalasahin
Konu: 1'den Fazla Listview Ekleyemiyorum
Mesaj Tarihi: 24 Mayıs 2024 Saat 10:43

Selamlar, Clomosy projemde tek form üzerine 1'den fazla Listview eklemeye çalıştığımda hata alıyorum. Yardımcı olabilecek var mı?

Hata kodu;

var
 anaForm : TclForm;
 Listview1 : TCLListView;
 Listview2 : TCLListView;
 
{
 anaForm = TclForm.Create(Self);
 
 Listview1 = anaForm.AddNewListView(anaForm,'Listview1');
 Listview1.Align = alTop;

 Listview2 = anaForm.AddNewListView(anaForm,'Listview2');
 Listview2.Align = alBottom;
 
 anaForm.Run;
}

--------------------------------------------------------------------
RUNTIME ERROR
Access violation at address 020BB209 in module 'ClomosyLearn.exe'. Read of address 00000000 when evaluating instruction CallProc ($FFFFFFFF,$2,$1455AD8,$21C0CFC0,'AddNewListView').
Stack content is: [Null,Integer:102081984,Integer:641273152].
Source position: 12,57
Position: 12, 57
Clomosy Build : 20240207.224534

Cevaplar:

Mesajı Yazan: yusufergün
Mesaj Tarihi: 24 Mayıs 2024 Saat 11:43

Ben birini listview diğerini prolistview yaparak bu sorunu çözdüm, aynı zamanda ikisini de prolistview yaparak yine sorununu çözebilirsin

var
anaForm : TclForm;
Listview1 : TCLListView;
Listview2 : TCLProListView;
btnClick: TclButton;
{
anaForm = TclForm.Create(Self);

Listview1 = anaForm.AddNewListView(anaForm,'Listview1');
Listview1.Align = alTop

Listview2 = anaForm.AddNewProListView(anaForm,'Listview2');
clComponent.SetupComponent(Listview2,'{
"Align":"Client",
"MarginBottom":10,
"MarginTop":20,
"MarginRight":15,
"MarginLeft":15,
"ListType":"Cart",
"ItemHeight" : 150,
"ItemWidth":150,
"BackgroundColor":"#CEF3FE",
"BorderColor":"#26DE90",
"BorderWidth":5,
"RoundWidth":5,
"RoundHeight":5}');

btnClick = anaForm.AddNewButton(Listview2,'btnClick','Tikla');

anaForm.Run;
}

Mesajı Yazan: ahmetalasahin
Mesaj Tarihi: 26 Mayıs 2024 Saat 17:39

Tamamdır teşekkür ederim