ListView Görünmeme Hatası

   açılan formda listview visible = true olmasına rağmen görünmüyor test etmek amaçlı listviewi oluşturmadan önce bir buton oluşturdum listview visible iken butona tıklanma engelleniyor invisibe olduğunda tıklayabiliyorum ama her iki durumdada listview unitte görünmüyor.

///////kod bloğu//////////////
var
  ListForm : TclForm;
  MainPnl : TclProPanel;
  listviewShow : TclProListView;
  DesignerPanel1 : TClProListViewDesignerPanel;
  lblFullName, lblCompany : TClProLabel;
  selectQuery : TclSqlQuery;
  CustomerViewer : TclUnit;
  btnTest : TClProButton;

void CreateListView;
{

  btnTest = ListForm.AddNewButton(MainPnl,'btnTest', 'test buton');
  listviewShow = ListForm.AddNewProListView(MainPnl, 'listviewShow');
  listviewShow.Align = alClient;
  listviewShow.Margins.Left = 20;
  listviewShow.Margins.Right = 20;
  listviewShow.Margins.Top = 20;
  listviewShow.Margins.Bottom = 20;
  listviewShow.Width = 340;
  listviewShow.Height = 400;
  listviewShow.clProSettings.ColCount = 1;
  listviewShow.clProSettings.ItemHeight = 60;
  listviewShow.clProSettings.ViewType = lvList;
  listviewShow.SetclProSettings(listviewShow.clProSettings);
  listviewShow.Visible = True;
}

void CreateDesignerPanel;
{
  DesignerPanel1 = ListForm.AddNewProListViewDesignerPanel(listviewShow, 'DesignerPanel1');
  DesignerPanel1.Height = 60;
  DesignerPanel1.Width = 300;
  listviewShow.SetDesignerPanel(DesignerPanel1);
}

void CreateDesignerFields;
{
  lblFullName = ListForm.AddNewProLabel(DesignerPanel1, 'lblFullName', 'test');
  lblFullName.Align = alTop;
  lblFullName.Height = 25;
  DesignerPanel1.AddPanelObject(lblFullName, clText);

  lblCompany = ListForm.AddNewProLabel(DesignerPanel1, 'lblCompany', 'test');
  lblCompany.Align = alTop;
  lblCompany.Height = 25;
  DesignerPanel1.AddPanelObject(lblCompany, clCaption);
}

void ConnectToDatabase;
{
  try
    if (Clomosy.DBSQLServerConnection == nil)
    {
      Clomosy.DBSQLServerConnect('SQL Server', '192.168.5.227\ACARPLUS', 'AcarPlus', '1234', 'Odeme_App', 1433);
    }
    selectQuery.Connection = Clomosy.DBSQLServerConnection;
  except
    ShowMessage('Veritabanı bağlantısı kurulamadı ' + LastExceptionMessage);
  }
}

void selectToDatabase;
{
  try
    selectQuery.Sql.Text = 'SELECT CAST(CustomerID as FLOAT) as clRecord_GUID, CustomerFullName as clText, CustomerCompany as clCaption FROM Customers WHERE CustomerIsActive = 1';
    selectQuery.Open;

    if (not selectQuery.Eof)
    {
      listviewShow.clearList;
      listviewShow.clLoadProListViewDataFromDataset(selectQuery);
    }
    else
    {
      ShowMessage('Kayıtlı müşteri bulunamadı.');
    }
  except
    ShowMessage('Hata: ' + LastExceptionMessage);
  }
}

{
  ListForm = TclForm.Create(Self);
  ListForm.SetFormColor('#121214', '', clGNone);

  selectQuery = TclSqlQuery.Create(nil);

  MainPnl = ListForm.AddNewProPanel(ListForm, 'MainPnl');
  MainPnl.Align = alClient;
  MainPnl.Width = 380;
  MainPnl.Height = 650;
  MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1A1A1E');
  MainPnl.clProSettings.IsTransparent = False;
  MainPnl.SetclProSettings(MainPnl.clProSettings);

  CreateListView;
  CreateDesignerPanel;
  CreateDesignerFields;

  ConnectToDatabase;
  selectToDatabase;

  ListForm.Run;
}
///////////////////////////////
< ="module" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
AcarPlus Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 27 Temmuz 2026 Konum: Konya Durum: Aktif Puanlar: 8	Mesaj Seçenekleri Yanıt Yaz Alıntı AcarPlus Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: ListView Görünmeme Hatası Gönderim Zamanı: 50 Dakika Önce Saat 14:48
	açılan formda listview visible = true olmasına rağmen görünmüyor test etmek amaçlı listviewi oluşturmadan önce bir buton oluşturdum listview visible iken butona tıklanma engelleniyor invisibe olduğunda tıklayabiliyorum ama her iki durumdada listview unitte görünmüyor. ///////kod bloğu////////////// var ListForm : TclForm; MainPnl : TclProPanel; listviewShow : TclProListView; DesignerPanel1 : TClProListViewDesignerPanel; lblFullName, lblCompany : TClProLabel; selectQuery : TclSqlQuery; CustomerViewer : TclUnit; btnTest : TClProButton; void CreateListView; { btnTest = ListForm.AddNewButton(MainPnl,'btnTest', 'test buton'); listviewShow = ListForm.AddNewProListView(MainPnl, 'listviewShow'); listviewShow.Align = alClient; listviewShow.Margins.Left = 20; listviewShow.Margins.Right = 20; listviewShow.Margins.Top = 20; listviewShow.Margins.Bottom = 20; listviewShow.Width = 340; listviewShow.Height = 400; listviewShow.clProSettings.ColCount = 1; listviewShow.clProSettings.ItemHeight = 60; listviewShow.clProSettings.ViewType = lvList; listviewShow.SetclProSettings(listviewShow.clProSettings); listviewShow.Visible = True; } void CreateDesignerPanel; { DesignerPanel1 = ListForm.AddNewProListViewDesignerPanel(listviewShow, 'DesignerPanel1'); DesignerPanel1.Height = 60; DesignerPanel1.Width = 300; listviewShow.SetDesignerPanel(DesignerPanel1); } void CreateDesignerFields; { lblFullName = ListForm.AddNewProLabel(DesignerPanel1, 'lblFullName', 'test'); lblFullName.Align = alTop; lblFullName.Height = 25; DesignerPanel1.AddPanelObject(lblFullName, clText); lblCompany = ListForm.AddNewProLabel(DesignerPanel1, 'lblCompany', 'test'); lblCompany.Align = alTop; lblCompany.Height = 25; DesignerPanel1.AddPanelObject(lblCompany, clCaption); } void ConnectToDatabase; { try if (Clomosy.DBSQLServerConnection == nil) { Clomosy.DBSQLServerConnect('SQL Server', '192.168.5.227\ACARPLUS', 'AcarPlus', '1234', 'Odeme_App', 1433); } selectQuery.Connection = Clomosy.DBSQLServerConnection; except ShowMessage('Veritabanı bağlantısı kurulamadı ' + LastExceptionMessage); } } void selectToDatabase; { try selectQuery.Sql.Text = 'SELECT CAST(CustomerID as FLOAT) as clRecord_GUID, CustomerFullName as clText, CustomerCompany as clCaption FROM Customers WHERE CustomerIsActive = 1'; selectQuery.Open; if (not selectQuery.Eof) { listviewShow.clearList; listviewShow.clLoadProListViewDataFromDataset(selectQuery); } else { ShowMessage('Kayıtlı müşteri bulunamadı.'); } except ShowMessage('Hata: ' + LastExceptionMessage); } } { ListForm = TclForm.Create(Self); ListForm.SetFormColor('#121214', '', clGNone); selectQuery = TclSqlQuery.Create(nil); MainPnl = ListForm.AddNewProPanel(ListForm, 'MainPnl'); MainPnl.Align = alClient; MainPnl.Width = 380; MainPnl.Height = 650; MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1A1A1E'); MainPnl.clProSettings.IsTransparent = False; MainPnl.SetclProSettings(MainPnl.clProSettings); CreateListView; CreateDesignerPanel; CreateDesignerFields; ConnectToDatabase; selectToDatabase; ListForm.Run; } /////////////////////////////// < ="module" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1" crossorigin="anonymous">