// 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" rel="nofollow - 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

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" rel="nofollow - 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" rel="nofollow - 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?

  UnitOrderDetails.CallerForm = MainForm;

  UnitOrderDetails.Run;