Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - CallerForm is not declared 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.

CallerForm is not declared Hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
M-Guney Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 144 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: CallerForm is not declared Hatası
    Gönderim Zamanı: Dün 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('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">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 479 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Saat 52 Dakika Önce Saat 09:46
Merhaba Güney, 
var
  MyForm : TclForm;
  
  CallerForm : TclForm; 
  
  // Diğer bileşenler
  ItemNameEdit : TclProEdit;
  ItemPriceEdit : TclProEdit;
  ItemNameLbl : TclProLabel;
  ItemImage : TclProImage;
  SaveBtn : TclProButton;
  
  IsImageChanged : Boolean;

void OnItemSaved(Sender)
var 
  LRest: TCLRest;
  LParentRefreshBtn : TclButton;
{
  MyForm.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';
      MyForm.SetImage(ItemImage,'https://clomosy.com/learn/clomosy.png');
      IsImageChanged = False;
      
      // --- ANA SAYFAYI TETİKLEME (REFRESH) ---
      if (CallerForm <> nil)
      {
        LParentRefreshBtn = TclButton(TCLForm(CallerForm).clFindComponent('Refresh*temsBtn'));
        
        if (LParentRefreshBtn <> nil)
        {
          clDoClick(LParentRefreshBtn);
        }
      }
      
  }
  else
  {
    ShowMessage('Hata: ' + Clomosy.CLParseJSON(LRest.Response, 'message'));
  }
}
mainform tarafında kodun da eksiklik veya yanlışlık da olabilir mi

void SaveBtnClick;
{

}

{
  MyForm = TclForm.Create(Self);
  
  IsImageChanged = False;

  ItemImage = MyForm.AddNewProImage(MyForm, 'ItemImage');
  ItemImage.Align = alTop;
  ItemImage.Height = 200;
  MyForm.SetImage(ItemImage,'https://clomosy.com/learn/clomosy.png');

  ItemNameLbl = MyForm.AddNewProLabel(MyForm, 'ItemNameLbl', 'ÜRÜN ADI');
  ItemNameLbl.Align = alTop;
  ItemNameLbl.Margins.Top = 10;
  ItemNameLbl.SetclProSettings(ItemNameLbl.clProSettings);

  ItemNameEdit = MyForm.AddNewProEdit(MyForm, 'ItemNameEdit', 'Ürün Adı');
  ItemNameEdit.Align = alTop;
  ItemNameEdit.Height = 50;

  ItemPriceEdit = MyForm.AddNewProEdit(MyForm, 'ItemPriceEdit', 'Fiyat');
  ItemPriceEdit.Align = alTop;
  ItemPriceEdit.Height = 50;
  ItemPriceEdit.SetclProSettings(ItemPriceEdit.clProSettings);

  SaveBtn = MyForm.AddNewProButton(MyForm, 'SaveBtn', 'KAYDET');
  SaveBtn.Align = alBottom;
  SaveBtn.Height = 50;
  MyForm.AddNewEvent(SaveBtn, tbeOnClick, 'SaveBtnClick');

  MyForm.Run;
} 

deneye bilir misin?


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">
Yukarı Dön
M-Guney Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 144 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 10 Saat 2 Dakika Önce Saat 11:36
CallerForm da bug var eğer ki CallerFormu tanımladığın siteyi önceden create etmezsen diğer unitler o sayfaya gitmeye çalışırken callerform bulunamadı hatası alıyor. Önceden o sayfanın callerformunu oluşturan sayfayı çalışırmam gerekiyor yoksa hata alıyorum.

  UnitOrderDetails.UnitName = 'uWaiterAndChefDetails';
  UnitOrderDetails.CallerForm = MainForm;
  UnitOrderDetails.Run;



RUNTİME ERROR
File library uHomePage: Unit ultemsCategoryPage: Unit
ultemsPage: Unit uWaiterAndChefDetaiIs: Unknown identifier or
variable is not declared: 'CallerForm'.
Source position: 678,30,
Source position: 1,54,
Source position: 1,43 when evaluating instruction CallProc
Stack content is:
[UnicodeString:uItemsMainGo,UnicodeString:TestBtn2,NuII,Intege
r:172185824.,.].
Source position: 29,58
Position: 29, 58.


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">
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,031 Saniyede Yüklendi.