CallerForm is not declared Hatası


   // Bu şekilde  çağırıyorum ve bana callerform bulunamadı hatası veriyordu.Çözümü en altta callerformu çağırdığın yeri callerformu atadığın yerde uses ile kullanma 

// HATALI KOD
// --- KAYDETME (POST /items) ---

void OnItemSaved(Sender)
var LRest: TCLRest;
LParentRefreshBtn : TclButton;
{
  MainForm.FormWaiting.Visible = False;
  LRest = TCLRest(Sender);
  
  if ((LRest.StatusCode == 200) || (LRest.StatusCode == 201))
  {
      ShowMessage('Ürün başarıyla eklendi!');
      
      // Formu Temizle
      ItemNameEdit.Text = '';
      ItemPriceEdit.Text = '';
      ItemNameLbl.Text = 'ÜRÜN ADI';
      MainForm.SetImage(ItemImage,'https://clomosy.com/learn/clomosy.png');
      IsImageChanged = False;
      
      // --- ANA SAYFAYI TETİKLEME (REFRESH) ---
      if (CallerForm <> nil)
      {
        // Ana formdaki gizli butonu bul ve tıkla
        LParentRefreshBtn = TclButton(CallerForm.clFindComponent('RefreshCategoriesBtn'));
        if (LParentRefreshBtn <> nil)
        {
          clDoClick(LParentRefreshBtn);
        }
      }
      //MainForm.Close;
      // ----------------------------------------
  }
  else
  {
    ShowMessage('Hata: ' + Clomosy.CLParseJSON(LRest.Response, 'message'));
  }
}


// yollama şeklim ise 

void gotouAddItems
{
  CloseAdminItemsPopUpV;
  uAddItems.SetCategoryIDV(CategoryId);
  
  //Clomosy.RunUnit('uAddItems');
  UnitAddItem.UnitName = 'uAddItems';
  UnitAddItem.CallerForm = MainForm;
  UnitAddItem.Run;
}


// ÇÖZUM

      // --- ANA SAYFAYI TETİKLEME (REFRESH) ---
      if (CallerForm <> nil)
      {
        ShowMessage('bulundu')
        // Ana formdaki gizli butonu bul ve tıkla
        LParentRefreshBtn = TclButton(TCLForm(CallerForm).clFindComponent('Refresh*temsBtn'));
        if (LParentRefreshBtn <> nil)
        {
          clDoClick(LParentRefreshBtn);
        ShowMessage('LParentRefreshBtn bulundu')
        }
      }
        ShowMessage('bulunamadı')
      //MainForm.Close;
      // ----------------------------------------

// FARKLI BIR UNITTE caller formun çağrıldığı yer AYNI
// --- ANA SAYFAYI TETİKLEME (REFRESH) ---
      if (CallerForm <> nil)
      {
        ShowMessage('bulundu')
        // Ana formdaki gizli butonu bul ve tıkla
        LParentRefreshBtn = TclButton(TCLForm(CallerForm).clFindComponent('Refresh*temsBtn'));
        if (LParentRefreshBtn <> nil)
        {
          clDoClick(LParentRefreshBtn);
        ShowMessage('LParentRefreshBtn bulundu')
        }
      }
        ShowMessage('bulunamadı')
      //MainForm.Close;
      // ----------------------------------------


https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
M-Guney Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Eylül 2025 Konum: Konya, Meram, K Durum: Aktif Değil Puanlar: 143	Mesaj Seçenekleri Yanıt Yaz Alıntı M-Guney Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: CallerForm is not declared Hatası Gönderim Zamanı: 4 Saat 21 Dakika Önce Saat 18:18
	// Bu şekilde çağırıyorum ve bana callerform bulunamadı hatası veriyordu.Çözümü en altta callerformu çağırdığın yeri callerformu atadığın yerde uses ile kullanma // HATALI KOD // --- KAYDETME (POST /items) --- void OnItemSaved(Sender) var LRest: TCLRest; LParentRefreshBtn : TclButton; { MainForm.FormWaiting.Visible = False; LRest = TCLRest(Sender); if ((LRest.StatusCode == 200) \|\| (LRest.StatusCode == 201)) { ShowMessage('Ürün başarıyla eklendi!'); // Formu Temizle ItemNameEdit.Text = ''; ItemPriceEdit.Text = ''; ItemNameLbl.Text = 'ÜRÜN ADI'; MainForm.SetImage(ItemImage,'https://clomosy.com/learn/clomosy.png'); IsImageChanged = False; // --- ANA SAYFAYI TETİKLEME (REFRESH) --- if (CallerForm <> nil) { // Ana formdaki gizli butonu bul ve tıkla LParentRefreshBtn = TclButton(CallerForm.clFindComponent('RefreshCategoriesBtn')); if (LParentRefreshBtn <> nil) { clDoClick(LParentRefreshBtn); } } //MainForm.Close; // ---------------------------------------- } else { ShowMessage('Hata: ' + Clomosy.CLParseJSON(LRest.Response, 'message')); } } // yollama şeklim ise void gotouAddItems { CloseAdminItemsPopUpV; uAddItems.SetCategoryIDV(CategoryId); //Clomosy.RunUnit('uAddItems'); UnitAddItem.UnitName = 'uAddItems'; UnitAddItem.CallerForm = MainForm; UnitAddItem.Run; } // ÇÖZUM // --- ANA SAYFAYI TETİKLEME (REFRESH) --- if (CallerForm <> nil) { ShowMessage('bulundu') // Ana formdaki gizli butonu bul ve tıkla LParentRefreshBtn = TclButton(TCLForm(CallerForm).clFindComponent('RefreshtemsBtn')); if (LParentRefreshBtn <> nil) { clDoClick(LParentRefreshBtn); ShowMessage('LParentRefreshBtn bulundu') } } ShowMessage('bulunamadı') //MainForm.Close; // ---------------------------------------- // FARKLI BIR UNITTE caller formun çağrıldığı yer AYNI // --- ANA SAYFAYI TETİKLEME (REFRESH) --- if (CallerForm <> nil) { ShowMessage('bulundu') // Ana formdaki gizli butonu bul ve tıkla LParentRefreshBtn = TclButton(TCLForm(CallerForm).clFindComponent('RefreshtemsBtn')); if (LParentRefreshBtn <> nil) { clDoClick(LParentRefreshBtn); ShowMessage('LParentRefreshBtn bulundu') } } ShowMessage('bulunamadı') //MainForm.Close; // ---------------------------------------- https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">