CallerForm


   anlaşılmayan hata;
yaptığım projede Gorevlerunit sayfasını açamıyorum bu hatayı aldım yardımcı olursanız çok sevinirim 

hata alan form sayfasının kodları;

 var
  MyForm : TclStyleForm;
  BtnRunUnitSample, BtnCustomUnitSample, BtnClickFromUnit : TclButton;
  MyUnit2 :TclUnit;
  testPanelRow : TclPanel;
  GBtn:TClProButton;
  GorevAlUnit :TclUnit;
  testListview : TClListView;
  selectQuery:TclSqlQuery;
  
  
void AddDataToListview
{
  try
 {
  selectQuery.SQL.Text='SELECT Gorev_Baslik as MAIN_TEXT,Gorev as SUB_TEXT, Gorev_Tarih as Tarih FROM Gorevleriniz';
  selectQuery.Open;
  if(selectQuery.Found)
  {
    testListview.clloadListViewDataFormDataset(selectQuery);
    
  }
  else
  {
    ShowMessage('Kayıt Bulunamadı');
  }
}
  finally
  {
    selectQuery.Free;
    selectQuery.Close;
  }
}
 void BtnSimpleUnitSampleClick;
 {
	MyForm.clShow;
	MyUnit2.UnitName='MyUnit2';
	MyUnit2.CallerForm=MyForm;
	MyUnit2.run;
 }

void BtnGorevler;
  {
    MyForm.clShow;
    GorevAlUnit.UnitName='GorevAlUnit';
    GorevAlUnit.CallerForm=MyForm;
    GorevAlUnit.run;
  }
 
 
 void BtnClickFromUnitClick;
 {
  ShowMessage('Call from Unit2 Form and value : '+BtnClickFromUnit.Hint);
 }
 
 {
 
  MyForm = TclStyleForm.Create(Self);
  GorevAlUnit = TclUnit.Create;
  MyUnit2 = TclUnit.Create;
  MyForm.SetFormColor('#26118d','',clGNone);
 

  

  BtnRunUnitSample = MyForm.AddNewButton(MyForm,'BtnGorevler','Görevleri Getir');
  BtnRunUnitSample.Align = alMostTop;
  MyForm.AddNewEvent(BtnRunUnitSample,tbeOnClick,'BtnSimpleUnitSampleClick');
 
   testPanelRow = MyForm.AddNewPanel(MyForm,'testPanelRow','');
   testPanelRow.Align = alTop;
   testPanelRow.Height = 50;
   testPanelRow.Margins.Left = 5;
   testPanelRow.Margins.Right = 5;
  
   GBtn= MyForm.AddNewProButton(testPanelRow,'GBtn','');
   clComponent.SetupComponent(GBtn,'{"Align" : "Top","MarginsLeft":250,"MarginsBottom":135
   ,"Width" :70,
   "Height":50}');
   MyForm.SetImage(GBtn,'https://cdn-icons-png.freepik.com/512/5561/5561361.png');
   MyForm.AddNewEvent(GBtn,tbeOnClick,'BtnGorevler');
   
  testListview=MyForm.AddNewListView(MyForm,'testListview');
  testListview.Align=alBottom;
  selectQuery=TclSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('SQL Server', 'BOYRAZ', 'gclomosy', '123456', 'Clomosy',1433);
  selectQueryQuery.Connection=Clomosy.DBSQLServerConnection;
   
   
   
  
AddDataToListview;
  MyForm.Run;
 }

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Boyraz Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 26 Mayıs 2024 Konum: Konya Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı Boyraz Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: CallerForm Gönderim Zamanı: 29 Mayıs 2024 Saat 16:59
	anlaşılmayan hata; yaptığım projede Gorevlerunit sayfasını açamıyorum bu hatayı aldım yardımcı olursanız çok sevinirim hata alan form sayfasının kodları; var MyForm : TclStyleForm; BtnRunUnitSample, BtnCustomUnitSample, BtnClickFromUnit : TclButton; MyUnit2 :TclUnit; testPanelRow : TclPanel; GBtn:TClProButton; GorevAlUnit :TclUnit; testListview : TClListView; selectQuery:TclSqlQuery; void AddDataToListview { try { selectQuery.SQL.Text='SELECT Gorev_Baslik as MAIN_TEXT,Gorev as SUB_TEXT, Gorev_Tarih as Tarih FROM Gorevleriniz'; selectQuery.Open; if(selectQuery.Found) { testListview.clloadListViewDataFormDataset(selectQuery); } else { ShowMessage('Kayıt Bulunamadı'); } } finally { selectQuery.Free; selectQuery.Close; } } void BtnSimpleUnitSampleClick; { MyForm.clShow; MyUnit2.UnitName='MyUnit2'; MyUnit2.CallerForm=MyForm; MyUnit2.run; } void BtnGorevler; { MyForm.clShow; GorevAlUnit.UnitName='GorevAlUnit'; GorevAlUnit.CallerForm=MyForm; GorevAlUnit.run; } void BtnClickFromUnitClick; { ShowMessage('Call from Unit2 Form and value : '+BtnClickFromUnit.Hint); } { MyForm = TclStyleForm.Create(Self); GorevAlUnit = TclUnit.Create; MyUnit2 = TclUnit.Create; MyForm.SetFormColor('#26118d','',clGNone); BtnRunUnitSample = MyForm.AddNewButton(MyForm,'BtnGorevler','Görevleri Getir'); BtnRunUnitSample.Align = alMostTop; MyForm.AddNewEvent(BtnRunUnitSample,tbeOnClick,'BtnSimpleUnitSampleClick'); testPanelRow = MyForm.AddNewPanel(MyForm,'testPanelRow',''); testPanelRow.Align = alTop; testPanelRow.Height = 50; testPanelRow.Margins.Left = 5; testPanelRow.Margins.Right = 5; GBtn= MyForm.AddNewProButton(testPanelRow,'GBtn',''); clComponent.SetupComponent(GBtn,'{"Align" : "Top","MarginsLeft":250,"MarginsBottom":135 ,"Width" :70, "Height":50}'); MyForm.SetImage(GBtn,'https://cdn-icons-png.freepik.com/512/5561/5561361.png'); MyForm.AddNewEvent(GBtn,tbeOnClick,'BtnGorevler'); testListview=MyForm.AddNewListView(MyForm,'testListview'); testListview.Align=alBottom; selectQuery=TclSqlQuery.Create(nil); Clomosy.DBSQLServerConnect('SQL Server', 'BOYRAZ', 'gclomosy', '123456', 'Clomosy',1433); selectQueryQuery.Connection=Clomosy.DBSQLServerConnection; AddDataToListview; MyForm.Run; }

Boyraz Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 26 Mayıs 2024 Konum: Konya Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı Boyraz Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 29 Mayıs 2024 Saat 17:01


Boyraz Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 26 Mayıs 2024 Konum: Konya Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı Boyraz Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 29 Mayıs 2024 Saat 17:02


Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 29 Mayıs 2024 Saat 17:56
	Merhaba Boyraz Aldığın hata try kullanımıyla alakalıdır. Aşağıda try finally kullanım örneği: var MyForm:TCLForm; a; void CallTest; { try ShowMessage('beforeFINALLY'); try ShowMessage('beforeEXCEPT'); a = 55.57; ShowMessage('Error Sure Line :'+a); except ShowMessage('inEXCEPT'); } ShowMessage('afterEXCEPT / beforeFINALLY'); finally ShowMessage('inFINALLY'); } ShowMessage('afterFINALLY'); } { MyForm = TCLForm.Create(Self); CallTest; MyForm.Run; }