Clomosy | Forum : CallerForm is not declared Hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 02:58:18 +0000 Thu, 18 Dec 2025 11:36:43 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1245 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[CallerForm is not declared Hatası : CallerForm da bug var eğer ki...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1245&PID=2769#2769 Yazar: M-Guney
Konu: 1245
Gönderim Zamanı: 18 Aralık 2025 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">]]> Thu, 18 Dec 2025 11:36:43 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1245&PID=2769#2769 <![CDATA[CallerForm is not declared Hatası : Merhaba Güney,var MyForm : TclForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1245&PID=2768#2768 Yazar: Emr.Erkmn
Konu: 1245
Gönderim Zamanı: 18 Aralık 2025 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">]]> Thu, 18 Dec 2025 09:46:12 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1245&PID=2768#2768 <![CDATA[CallerForm is not declared Hatası : // Bu şekilde çağırıyorum ve bana...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1245&PID=2767#2767 Yazar: M-Guney
Konu: 1245
Gönderim Zamanı: 17 Aralık 2025 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">]]> Wed, 17 Dec 2025 18:18:55 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1245&PID=2767#2767