Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - tbeOnGridCellClick Hatası
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

tbeOnGridCellClick Hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
NadireNurSaglam Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 08 Ağustos 2024
Durum: Aktif Değil
Puanlar: 37 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı NadireNurSaglam Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: tbeOnGridCellClick Hatası
    Gönderim Zamanı: 11 Ekim 2024 Saat 18:02
Aşağıdaki kodumda gridBilgileriGetir fonksiyonunda bulunan 
gridbilgiForm.AddNewEvent(ProGridBilgi, tbeOnGridCellClick, 'griddenBilgiCek');
griddenBilgiCek fonksiyonunu çağıramıyorum. Fonksiyondaki 
 ShowMessage('geldi');
kısmına gelmiyor.

var
stokForm : TCLForm;
ProGrid: TCLProGrid;
Qry: TClSqlQuery;
vertSB : TCLVertScrollBox;
FSender:TCLProGrid;
stokFormPanel : TclProPanel;
baslikLabel : TClProLabel;
i: Integer;
QryKayitSayisi: TClSqlQuery;
KayitSayisi: Integer;
a: Integer;
//filtreleEkran tanımlamalar
filtreleEkranForm : TCLForm;
StokKoduIcerikEdit: TclProEdit;
StokKoduLbl, StokKoduBtn :TClProLabel;
stokAdiLbl, stokAdiIcerikLbl :  TClProLabel;
bazTarihLbl : TClProLabel;
raporBtn : TClProButton;
bazTarihDate :  TClProDateEdit;
kodYerineIsimLbl,stokYazilanIsimLbl, hizmetStokHaricLbl: TClProLabel;
kodYerineIsimCB, stokYazilanIsimCB, hizmetStokHaricCB : TCLCheckBox;
qryfiltrele : TClSqlQuery;
gridbilgiForm : TCLForm;
vertSBGridBilgi : TCLVertScrollBox;
stokFormPanelGridBilgi : TclProPanel;
Qrygridbilgi : TClSqlQuery;
FRow,j : integer;
FCol,gridKayitSayisi : integer;
QryKayit : TClSqlQuery;
FSenderSaticiSipStok,ProGridBilgi: TCLProGrid;

void kayitSayiAl;
{
  //-------------------------------------------------kayit sayısı alma, sağa yaslama, kırmızı yapma-----------------------------------
    QryKayitSayisi =  TClSqlQuery.Create(nil);
    QryKayitSayisi.Connection = Clomosy.DBSQLServerConnection;
    
    QryKayitSayisi.Sql.Text = 'SELECT COUNT(*) AS KayitSayisi 
                          FROM ( 
                             SELECT 
                                dbo.TBLSTOKSB.STOK_KODU, 
                              dbo.TBLSTOKSB.STOK_ADI, 
                               SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS GIRIS_MIKTAR, 
                                SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = -1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS CIKIS_MIKTAR, 
                                 ISNULL(SUM(CASE WHEN 1 = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END * dbo.TBLSTOKHR.GC_ISLEM), 0) AS BAKIYE 
                              FROM 
                                dbo.TBLSTOKSB 
                              INNER JOIN 
                                  dbo.TBLSTOKHR ON dbo.TBLSTOKSB.REC_NO = dbo.TBLSTOKHR.STOK_KODU_RECID AND dbo.TBLSTOKHR.SUBE_KODU IN (0) 
                             LEFT OUTER JOIN 
                                  (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRG ON HRG.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRG.GC_ISLEM = 1 
                           LEFT OUTER JOIN 
                                  (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRC ON HRC.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRC.GC_ISLEM = -1 
                              LEFT OUTER JOIN 
                                  dbo.TBLSTOKBELGETIPSB ON dbo.TBLSTOKBELGETIPSB.BELGE_TIPI = dbo.TBLSTOKHR.BELGE_TIPI 
                            WHERE 
                                 (dbo.TBLSTOKSB.STOK_TIPI <> ' + QuotedStr('Z') + ') 
                             GROUP BY 
                                 dbo.TBLSTOKSB.STOK_KODU, dbo.TBLSTOKSB.STOK_ADI 
                          ) AS DATA;';
    QryKayitSayisi.Open;
    if(QryKayitSayisi.Found)
    {
      KayitSayisi = QryKayitSayisi.FieldByName('KayitSayisi').AsInteger; 
     // ShowMessage('Toplam Kayıt Sayısı: ' + IntToStr(KayitSayisi)); 
      with ProGrid do // eksi değerleri de aşağıdaki for döngüsünde kontrol ettiğiiz için bve başlılar integer değerde olmadığı için 
      //başlıkları ayrıyeten burda sağa yasladık
      {
        HorzAlignments[2,0] = 2;
        HorzAlignments[3,0] = 2;
        HorzAlignments[4,0] = 2;
      }
      
      for (i=1 to KayitSayisi)
      {
        with ProGrid do
        {
          HorzAlignments[2, i] = 2; //ilgili sütunlardaki tüm hücreleri sağa yaslar ve rengini siyah yapar
          HorzAlignments[3, i] = 2; 
          HorzAlignments[4, i] = 2; 
          FontColors[2,i] = clAlphaColor.clBlack;
          FontColors[3,i] = clAlphaColor.clBlack;
          FontColors[4,i] = clAlphaColor.clBlack;
        }
        //ShowMessage(ProGrid.GetCellValue(4,i));
        if (ProGrid.GetCellValue(4,i) < 0)
        {
         // ShowMessage(ProGrid.GetCellValue(4,i));
          ProGrid.FontColors[4,i] = clAlphaColor.clRed; //4. sütun olan bakiye sütunundaki - değerlerin rengini kırmızı yapar
        }
      }
    }
    else
    {
      ShowMessage('Kayıt Bulunamadı');
    }
    QryKayitSayisi.Free;
}

void selectFromDb;
{ 

    vertSB= stokForm.AddNewVertScrollBox(stokFormPanel,'vertSB');
    vertSB.Align= alClient;
    
     Qry = TClSqlQuery.Create(nil);
     Qry.Connection = Clomosy.DBSQLServerConnection;
    Qry.Sql.Text =  'SELECT 
    STOK_KODU AS [Stok Kodu], 
    STOK_ADI AS [Stok Adı], 
     FORMAT(GIRIS_MIKTAR, ''N2'', ''tr-TR'') AS [Giriş Miktar], 
     FORMAT(CIKIS_MIKTAR, ''N2'', ''tr-TR'') AS [Çıkış Miktar], 
     FORMAT(BAKIYE, ''N2'', ''tr-TR'') AS [Bakiye]
FROM 
    (SELECT 
        dbo.TBLSTOKSB.STOK_KODU, 
        dbo.TBLSTOKSB.STOK_ADI, 
        SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS GIRIS_MIKTAR, 
        SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = -1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS CIKIS_MIKTAR, 
        ISNULL(SUM(CASE WHEN 1 = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END * dbo.TBLSTOKHR.GC_ISLEM), 0) AS BAKIYE
    FROM 
        dbo.TBLSTOKSB 
    INNER JOIN 
        dbo.TBLSTOKHR ON dbo.TBLSTOKSB.REC_NO = dbo.TBLSTOKHR.STOK_KODU_RECID AND dbo.TBLSTOKHR.SUBE_KODU IN (0) 
    LEFT OUTER JOIN 
        (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRG ON HRG.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRG.GC_ISLEM = 1 
    LEFT OUTER JOIN 
        (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRC ON HRC.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRC.GC_ISLEM = -1 
    LEFT OUTER JOIN 
        dbo.TBLSTOKBELGETIPSB ON dbo.TBLSTOKBELGETIPSB.BELGE_TIPI = dbo.TBLSTOKHR.BELGE_TIPI
    WHERE 
        (1 = 1) AND (dbo.TBLSTOKSB.STOK_TIPI <> ' + QuotedStr('Z') + ')
    GROUP BY 
        dbo.TBLSTOKSB.STOK_KODU, dbo.TBLSTOKSB.STOK_ADI) AS DATA
WHERE 
    (1 = 1);
';
    Qry.Open;
    if(Qry.Found)
    {
     ProGrid = stokForm.AddNewProGrid(vertSB, 'ProGrid');
     ProGrid.connectDataSet(Qry);
     ProGrid.AutoSizeColumns(True,200); //her başlık sütunu hücresinin genişliğini 200 yapar
     with ProGrid do
     {
     
        Align = alCenter;
        Width=(stokForm.clWidth*100)/100;
        Height=(stokForm.clHeight*50)/100;
        NormalLayoutFillColor = clAlphaColor.clhextocolor('#e8e5e5');// tek sayılı satırların satır arka plan rengi
        BandLayoutFillColor  = clAlphaColor.clhextocolor('#c6c6c6'); // çift sayılı satırların satır arka plan rengi
        SelectedLayoutFontColor = clAlphaColor.clwhite; // seçili hücrenin satır metin rengi
        SelectedLayoutFillColor = clAlphaColor.clHexToColor('#e00713'); // seçili hücrenin satır arka plan rengi
        FocusedLayoutFontColor = clAlphaColor.clwhite;  // seçili hücrenin metin rengi
        FocusedLayoutFillColor = clAlphaColor.clHexToColor('#585757'); // seçili hücrenin arka plan rengi
        FixedLayoutFillColor = clAlphaColor.clHexToColor('#890410'); //başlıkların arka plan rengi
        FixedLayoutFontColor = clAlphaColor.clwhite; //başlıkların metin rengi
     // HorzAlignments[2,2] = 0; //hücredeki yazıyı ortalar
     }
   
      }
      else
      {
        ShowMessage('Kayıt Bulunamadı');
      }
     //Qry.Free; //BU KODU YAZINCA HATA ALINIYOR
      kayitSayiAl;
}

void stokFormAc;
 {
    
  stokFormPanel = stokForm.AddNewProPanel(stokForm, 'stokFormPanel');
  with stokFormPanel do
  {
  
  Align = alClient;
  clprosettings.backgroundcolor = clAlphaColor.clnull;
  clprosettings.BorderColor=clAlphaColor.clwhite;
  clprosettings.BorderWidth=2;
  }
   stokFormPanel.setclprosettings(stokFormPanel.clprosettings);
  
  //-----------------------------------------------------------------
  baslikLabel = stokForm.AddNewProLabel(stokFormPanel, 'baslikLabel', 'STOK BAKİYE RAPORU');
  with baslikLabel do
  {
    Align= altop;
    Margins.Top = (stokForm.clHeight*10)/100;
    clprosettings.Fontsize=20;
    clprosettings.fontcolor = clAlphaColor.clwhite;
    clProSettings.TextSettings.Font.Style = [fsBold,fsUnderline];
    Height=40;
    clprosettings.backgroundcolor= clAlphaColor.clnull;
    clprosettings.fontvertalign=palcenter;
    clprosettings.fonthorzalign = palcenter;
  }
  baslikLabel.setclprosettings(baslikLabel.clprosettings);
  
      try
        Clomosy.DBSQLServerConnect('SQL Server',Clomosy.GlobalVariableString,'sa','123456789','STAJ',1433);
      except
        ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
      }
    
   selectFromDb;

 }

 //-----------------------------------FİLTRELEME EKRANI  -------------------------------------------------

void stokFormGit;
{
 
  stokForm = TCLForm.Create(Self);
  stokForm.clSetCaption('Stok Bakiye Raporu');
  /*ClRTSetProperty(stokForm,'ClientWidth',stokForm.clwidth);
  ClRTSetProperty(stokForm,'ClientHeight',stokForm.clHeight);*/
   stokForm.SetFormColor('#585757','#c6c6c6',clGCross);

   stokFormAc;
   stokForm.Run;
}

/*void CBdegistir;
{
  if (kodYerineIsimCB.isChecked)
  {
    kodYerineIsimCB.Text = 'Evet';
  }
  else
  {
    kodYerineIsimCB.Text = 'Hayır';
  }
}*/

void griddenBilgiCek;
{
    ShowMessage('geldi');
    FSenderSaticiSipStok = TCLProGrid(gridbilgiForm.ClSender);
  FRow = gridbilgiForm.ClSenderRow; //satırlar 1 den başlıyor
  FCol = gridbilgiForm.ClSenderCol; //sütunlar 0 dan başlıyor
  ShowMessage(FRow);
  ShowMessage(FCol);
  //-------------------------------------------------kayit sayısı alma, sağa yaslama, kırmızı yapma-----------------------------------
    QryKayit =  TClSqlQuery.Create(nil);
    QryKayit.Connection = Clomosy.DBSQLServerConnection;
    
        QryKayit.Sql.Text = '
     Select count(*)  as gridKayitSayisi from
    (SELECT * FROM (SELECT TOP 100 PERCENT STOK_KODU, STOK_ADI 
    FROM [PRG_VIEW_STREHBER] WITH (NOLOCK)   WHERE 1=1     
    AND ISNULL(PASIF_KART,0)=0    ) AS REHBERSQL  ) as DATA
    ';
    QryKayit.Open;
    if(QryKayit.Found)
    {
      gridKayitSayisi = QryKayit.FieldByName('gridKayitSayisi').AsInteger; 
     //ShowMessage('Toplam Kayıt Sayısı: ' + IntToStr(KayitSayisi)); 

      for (j=0 to gridKayitSayisi)
      {
       if(FCol==0)
       {
        StokKoduIcerikEdit.Text=  FSenderSaticiSipStok.Cells[0,FRow];
        stokAdiIcerikLbl.caption = FSenderSaticiSipStok[1,FRow];
       }
      }
     
    }
    else
    {
      ShowMessage('Kayıt Bulunamadı');
    }
    QryKayit.Free;
}

void gridBilgileriGetir; //filtrelemede stok kodu stok adını almak için
{
    
    gridbilgiForm= TCLForm.Create(self);
    
      try
        Clomosy.DBSQLServerConnect('SQL Server',Clomosy.GlobalVariableString,'sa','123456789','STAJ',1433);
      except
        ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
      }
    
    vertSBGridBilgi= gridbilgiForm.AddNewVertScrollBox(gridbilgiForm,'vertSBGridBilgi');
    vertSBGridBilgi.Align= alClient;
    
     Qrygridbilgi = TClSqlQuery.Create(nil);
     Qrygridbilgi.Connection = Clomosy.DBSQLServerConnection;
    Qrygridbilgi.Sql.Text =  'SET NO_BROWSETABLE ON  SET ROWCOUNT 0  SELECT * FROM 
    (SELECT TOP 100 PERCENT STOK_KODU, STOK_ADI /*FATSTOKSECF*/ /*FATSTOKSECT*/  FROM 
    [PRG_VIEW_STREHBER] WITH (NOLOCK)   WHERE 1=1     AND ISNULL(PASIF_KART,0)=0    ) AS REHBERSQL   
    ORDER BY STOK_KODU ASC  SET ROWCOUNT 0  SET NO_BROWSETABLE OFF
    ';
    Qrygridbilgi.Open;
    if(Qrygridbilgi.Found)
    {
     ProGridBilgi = gridbilgiForm.AddNewProGrid(vertSBGridBilgi, 'ProGridBilgi');
     ProGridBilgi.connectDataSet(Qrygridbilgi);
     ProGridBilgi.AutoSizeColumns(True,200); //her başlık sütunu hücresinin genişliğini 200 yapar
     with ProGridBilgi do
     {
     
        Align = alCenter;
        Width=(gridbilgiForm.clWidth*100)/100;
        Height=(gridbilgiForm.clHeight*50)/100;
        NormalLayoutFillColor = clAlphaColor.clhextocolor('#e8e5e5');// tek sayılı satırların satır arka plan rengi
        BandLayoutFillColor  = clAlphaColor.clhextocolor('#c6c6c6'); // çift sayılı satırların satır arka plan rengi
        SelectedLayoutFontColor = clAlphaColor.clwhite; // seçili hücrenin satır metin rengi
        SelectedLayoutFillColor = clAlphaColor.clHexToColor('#e00713'); // seçili hücrenin satır arka plan rengi
        FocusedLayoutFontColor = clAlphaColor.clwhite;  // seçili hücrenin metin rengi
        FocusedLayoutFillColor = clAlphaColor.clHexToColor('#585757'); // seçili hücrenin arka plan rengi
        FixedLayoutFillColor = clAlphaColor.clHexToColor('#890410'); //başlıkların arka plan rengi
        FixedLayoutFontColor = clAlphaColor.clwhite; //başlıkların metin rengi
 
      }

        gridbilgiForm.AddNewEvent(ProGridBilgi, tbeOnGridCellClick, 'griddenBilgiCek');
    }
    else
    {
      ShowMessage('Kayıt Bulunamadı');
    }
         
    
 gridbilgiForm.Run;
}


 {
    filtreleEkranForm =TCLForm.Create(Self);
    //stokFormGit;
    
    //stok kodu labellar ve seçim butonu-------------------------------------------------------------------
    StokKoduLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'StokKoduLbl','Stok Kodu');
    with StokKoduLbl do
    {
      Align = alCenter;
      Margins.Top = 5;
      Margins.Bottom = 450;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clred;
      
    }
    StokKoduLbl.setclprosettings(StokKoduLbl.clprosettings);
    
    StokKoduIcerikEdit = filtreleEkranForm.AddNewProEdit(filtreleEkranForm, 'StokKoduIcerikEdit','');
    with StokKoduIcerikEdit do
    {
      Align = alCenter;
      Margins.Top = 5;
      Margins.Bottom = 450;
      Margins.Right = 10;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clred;
      
    }
    StokKoduIcerikEdit.setclprosettings(StokKoduIcerikEdit.clprosettings);
    
    StokKoduBtn = filtreleEkranForm.AddNewProButton(filtreleEkranForm, 'StokKoduBtn','stok getir');
    with StokKoduBtn do
    {
      Align = alCenter;
      Margins.Top = 5;
      Margins.Bottom = 450;
      Margins.left = 350;
      Height = 30;
      Width = 50;
      clprosettings.backgroundcolor = clAlphaColor.clred;
      
    }
    StokKoduBtn.setclprosettings(StokKoduBtn.clprosettings);
    
    filtreleEkranForm.AddNewEvent(StokKoduBtn,tbeOnClick,'gridBilgileriGetir');
   // MyForm.AddNewEvent(testBtn,tbeOnClick,'BtnOnClick');
    
    //-----------------------------stok adı labellar----------------------------------------------------------------
    
    stokAdiLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'stokAdiLbl','Stok Adı');
    with stokAdiLbl do
    {
      Align = alCenter;
      Margins.Top = 8;
      Margins.Bottom = 350;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clgreen;
      
    }
    stokAdiLbl.setclprosettings(stokAdiLbl.clprosettings);
    
    stokAdiIcerikLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'stokAdiIcerikLbl','');
    with stokAdiIcerikLbl do
    {
      Align = alCenter;
      Margins.Top = 8;
      Margins.Bottom = 350;
      Margins.Right = 10;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clgreen;
      
    }
    stokAdiIcerikLbl.setclprosettings(stokAdiIcerikLbl.clprosettings);
    
    //------------------------------------baz tarih label ve date--------------------------
    bazTarihLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'bazTarihLbl','Baz Tarih');
    with bazTarihLbl do
    {
      Align = alCenter;
      Margins.Top = 12;
      Margins.Bottom = 250;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clblue;
    }
    bazTarihLbl.setclprosettings(bazTarihLbl.clprosettings);
    
    bazTarihDate = filtreleEkranForm.AddNewProDateEdit(filtreleEkranForm, 'bazTarihDate');
    with bazTarihDate do
    {
      Align = alCenter;
      Margins.Top = 12;
      Margins.Bottom = 250;
      Margins.Right = 10;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clblue;
    }
    bazTarihDate.setclprosettings(bazTarihDate.clprosettings);

    // ----------------------------kod yerine isim gelsin label ----------------------------------
    kodYerineIsimLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'kodYerineIsimLbl','Kod Yerine İsim Gelsin');
    with kodYerineIsimLbl do
    {
      Align = alCenter;
      Margins.Top = 20;
      Margins.Bottom = 150;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clPurple;
    }
    kodYerineIsimLbl.setclprosettings(kodYerineIsimLbl.clprosettings);
    
    kodYerineIsimCB = filtreleEkranForm.AddNewCheckBox(filtreleEkranForm,'kodYerineIsimCB', '');
    with kodYerineIsimCB do
    {
      Align = alCenter;
      Margins.Top = 20;
      Margins.Bottom = 150;
      Margins.Right = 15;
      Width=100;
      Height =50;
    }
   // filtreleEkranForm.AddNewEvent(kodYerineIsimCB,tbeOnClick,'CBdegistir');
    
    //---------------------------  stok yazılan isim gelsin ---------------------------------------
    
    stokYazilanIsimLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'stokYazilanIsimLbl','Stok Yazılan İsim Gelsin');
    with stokYazilanIsimLbl do
    {
      Align = alCenter;
      Margins.Top = 25;
      Margins.Bottom = 50;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clyellow;
    }
    stokYazilanIsimLbl.setclprosettings(stokYazilanIsimLbl.clprosettings);
    
    stokYazilanIsimCB = filtreleEkranForm.AddNewCheckBox(filtreleEkranForm,'stokYazilanIsimCB', '');
    with stokYazilanIsimCB do
    {
      Align = alCenter;
      Margins.Top = 25;
      Margins.Bottom = 50;
      Margins.Right = 15;
      Width=100;
      Height =50;
    }
    
    //------------------------------ hizmet stokları hariç-------------------------------------------
    hizmetStokHaricLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'hizmetStokHaricLbl','Hizmet Stokları Hariç');
    with hizmetStokHaricLbl do
    {
      Align = alCenter;
      Margins.Top = 30; 
      Margins.Bottom = -50;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clgrey;
    }
    hizmetStokHaricLbl.setclprosettings(hizmetStokHaricLbl.clprosettings);
    
    hizmetStokHaricCB = filtreleEkranForm.AddNewCheckBox(filtreleEkranForm,'hizmetStokHaricCB', '');
    with hizmetStokHaricCB do
    {
      Align = alCenter;
      Margins.Top = 30;
      Margins.Bottom = -50;
      Margins.Right = 15;
      Width=100;
      Height =50;
    }
    
    // ---------------------Rapor butonu ----------------------------
    raporBtn = filtreleEkranForm.AddNewProButton(filtreleEkranForm, 'raporBtn','RAPOR');
    with raporBtn do
    {
      Align = alCenter;
      Margins.Top = 200;
      Margins.left = 350;
      Height = 30;
      Width = 50;
      clprosettings.backgroundcolor = clAlphaColor.clPink;
    }
    raporBtn.setclprosettings(raporBtn.clprosettings);
  
    filtreleEkranForm.Run;
 }
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 354 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Ekim 2024 Saat 18:14
Merhaba Nadire 
gridbilgiForm.AddNewEvent(ProGridBilgi, tbeOnProGridCellClick, 'griddenBilgiCek'); b şekilde değiştirebilir misin?
Kolay Gelsin
Yukarı Dön
NadireNurSaglam Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 08 Ağustos 2024
Durum: Aktif Değil
Puanlar: 37 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı NadireNurSaglam Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Ekim 2024 Saat 18:17
Tamamdır bu şekilde çalıştı. Teşekkür ederim.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,066 Saniyede Yüklendi.