https://www.docs.clomosy.com/index.php?title=TclUnit ;
https://www.youtube.com/watch?v=6q3jpvDA8CI
https://www.youtube.com/watch?v=uoIUSwX5llo&t=7s ;
Paylaştığım linklere göz atmanı istiyorum.
İyi çalışmalar.

anaSayfa unitimdeki timerAc ve timerKapa void'lerine başka bir unit'den ulaşmak istediğimde Unknown member identifier hatası alıyorum (ilk attığım unit: anaSayfa ikincisi settingsForm)

uses apiConnect,fonks;

var

anaSayfa : TCLForm;

sideMenu : TCLMenuFrame;

sideMenuOpenBtn, sideMenuCloseBtn, productsBtn, ordersBtn, entSettingsBtn, statisticsBtn,hepsiniGonderBtn,secilenleriGonderBtn : TClProButton;

mainVertSB : TCLVertScrollBox;

grid1 : TCLPROGrid;

enUstLabel,sureLabel : TClProLabel;

enUstPanel,productsBtnPanel,ordersBtnPanel,entSettingsBtnPanel,statisticsBtnPanel,gonderBtnPanel : TclProPanel;

productsBtnImg,ordersBtnImg,entSettingsBtnImg, statisticsBtnImg : TClProImage;

n11Rest : TCLRest;

secilenUrunlerList : TCLStringList;

timer : TCLTimer;

duration,dk,sn : Integer;

void openSideMenu{

  sideMenu.visible = True;

  CLRTMethod(sideMenu,'BringToFront');

}

void closeSideMenu{

  sideMenu.visible = False;

  CLRTMethod(sideMenuOpenBtn,'BringToFront');

}

void toProductList{

  Clomosy.runUnit('productList');

}

void toStatisticsForm;

{

  Clomosy.runUnit('statisticsForm');  

}

void toSettingsForm;

{

  Clomosy.runUnit('settingsForm');

}

void getProGrid;

  var

    Qry : TCLSQLQuery;

  {

    try 

      Qry = TCLSQLQuery.Create(nil);

      Qry.connection = Clomosy.DBSQLServerConnection;

      Qry.Sql.Text = 'SELECT REC_NO as "Ürün ID",STOK_ADI as "Ürün Adı",STOK_KODU as "Stok Kodu" FROM TBLSTOKSB2 ';

      Qry.Open;

      if (Qry.Found)

      {

        grid1 = anaSayfa.AddNewProGrid(mainVertSB,'grid1');

        grid1.Align = alTop;

        grid1.Options.ColumnSize.StretchAll = True;     

        grid1.ConnectDataSet(Qry);

        grid1.AutoSizeColumns(True,100);

        grid1.Options.Selection.Mode = smNone;

        //grid1.SelectedLayoutFillColor = clAlphaColor.clHexToColor('#fffff');

        grid1.ColumnCount = 4;

        anaSayfa.AddNewEvent(grid1,tbeOnProGridCellDblClick,'urunSec');

      }

    except

      ShowMessage('[01] Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

    }

}

void hepsiniGonder;

var

  temp,tempId : Integer;

{

  temp = 1;

  while(grid1.getCellValue(1,temp) <> '')

  {

    //ShowMessage(grid1.getCellValue(0,temp))

    tempId = grid1.getCellValue(0,temp);

    

    apiConnect.apiGonder(n11Rest,tempId);

    

    temp = temp+1;

  }

  ShowMessage(IntToStr(temp-1) +' Adet Ürün Gönderildi');

}

void secilenleriGonder;

var

  tempId,temp,listLen : Integer;

{

  listLen = secilenUrunlerList.Count;

  

  if(listLen == 0)

    ShowMessage('Ürün Seçiniz...');

  listLen = listLen-1;

  for(temp = 0 to listLen)

  {

    tempId = StrToInt(secilenUrunlerList[temp]);

    apiConnect.apiGonder(n11Rest,tempId);

  }

  if(listLen >= 0 )

    ShowMessage(IntToStr(listLen+1) + ' Adet Ürün Gönderildi.');

}

void urunSec;

var

  FCol,FRow:integer;

  FSender:TCLProGrid;

  temp,secId : Integer;

{

  FSender = TCLProGrid(anaSayfa.ClSender);

  FRow = anaSayfa.ClSenderRow;

  FCol = anaSayfa.ClSenderCol;

  

  secId = Grid1.GetCellValue(0,FRow);

  temp = secilenUrunlerList.IndexOf(IntToStr(secId)); 

  

  grid1.beginUpdate;

  if(temp == -1)

  {

    Grid1.Colors[0,FRow] = clAlphaColor.clHexToColor('#99b3ff');   

    Grid1.Colors[1,FRow] = clAlphaColor.clHexToColor('#99b3ff');

    Grid1.Colors[2,FRow] = clAlphaColor.clHexToColor('#99b3ff');

    Grid1.Colors[3,FRow] = clAlphaColor.clHexToColor('#99b3ff');

    secilenUrunlerList.Add(IntToStr(secId));

  }else

  {

    Grid1.Colors[0,FRow] = clAlphaColor.clHexToColor('#ffffff');   

    Grid1.Colors[1,FRow] = clAlphaColor.clHexToColor('#ffffff');

    Grid1.Colors[2,FRow] = clAlphaColor.clHexToColor('#ffffff');

    Grid1.Colors[3,FRow] = clAlphaColor.clHexToColor('#ffffff');

    secilenUrunlerList.Delete(temp); 

  }

  grid1.EndUpdate;

}

void timerShow;

{

  Dec(duration);

  if(duration == 0)

  {

    duration = 600;

    hepsiniGonder;

  }else

  {

    dk = (duration div 60);

    sn = (duration mod 60);

    sureLabel.Caption = fonks.sifirEkle(dk)+'.'+fonks.sifirEkle(sn);

  }

}

void timerAc;

{

  timer.enabled = true;

}

void timerKapat;

{

  timer.enabled = False;

}

{

  anaSayfa = TCLForm.Create(self);

  anaSayfa.SetFormColor('#f4f6f8', '', clGNone);

  anaSayfa.btnFormMenu.Visible = False;

  anaSayfa.formwaiting.visible = False;

  if(Clomosy.PlatformIsMobile)

  anaSayfa.LytTopBar.Visible = False;

  

  sideMenu = anaSayfa.AddNewMenuFrame(anaSayfa,'sideMenu');

  sideMenu.align = alContents;

  sideMenu.clMenuPosition = clLeft;

  sideMenu.visible = False;

  

  n11Rest = TCLRest.Create;

  n11Rest.BaseUrl = 'http://localhost:5144/';

  n11Rest.Resource = 'api/clomosyBaglan/UrunIdAl';

 

  secilenUrunlerList = Clomosy.StringListNew; 

  

  duration = 600;

  /*--------------------------------------------------------*/  

  enUstPanel = anaSayfa.AddNewProPanel(anaSayfa, 'enUstPanel');

  enUstPanel.align = alMostTop;

  enUstPanel.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#2d3e50');

  enUstPanel.height = 50;

  enUstPanel.setclprosettings(enUstPanel.clprosettings);

  

  /*--------------------------------------------------------*/

  

  enUstLabel = anaSayfa.AddNewProLabel(enUstPanel, 'enUstLabel', 'Proje');

  //enUstLabel.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#2d3e50');

  //enUstLabel.Align = alMostTop;

  //enUstLabel.width = anaSayfa.clwidth;

  enUstLabel.clProSettings.FontHorzAlign = palCenter;

  enUstLabel.clProSettings.FontVertAlign = palCenter;

  enUstLabel.clProSettings.FontColor = clalphaColor.clwhite;

  enUstLabel.clprosettings.fontsize = 24;

  enUstLabel.align = alRight;

  enUstLabel.setclprosettings(enUstLabel.clprosettings);

  

  /*--------------------------------------------------------*/

  

  sideMenuOpenBtn = anaSayfa.AddNewProButton(enUstPanel, 'sideMenuOpenBtn', '');

  anaSayfa.SetImage(sideMenuOpenBtn,'https://resmim.net/cdn/2025/06/27/Tu0gmx.png');

  sideMenuOpenBtn.align = alLeft;

  sideMenuOpenBtn.width = sideMenuOpenBtn.width/2.5;

  sideMenuOpenBtn.margins.left = 10;

  sideMenuOpenBtn.setclprosettings(sideMenuOpenBtn.clprosettings);

  

  anaSayfa.AddNewEvent(sideMenuOpenBtn,tbeOnClick,'openSideMenu');

  

  /*--------------------------------------------------------*/

  

  sideMenuCloseBtn = anaSayfa.AddNewProButton(sideMenu.vertScrollBox,'sideMenuCloseBtn','');

  anaSayfa.SetImage(sideMenuCloseBtn,'https://resmim.net/cdn/2025/06/27/Tu4Epi.png');

  sideMenuCloseBtn.width = sideMenuCloseBtn.width/2.5;

  sideMenuCloseBtn.align = alLeft;

  sideMenuCloseBtn.margins.bottom = sideMenu.height/1.2;

  

  anaSayfa.AddNewEvent(sideMenuCloseBtn,tbeOnClick,'closeSideMenu');

  

  /*--------------------------------------------------------*/

  

  productsBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'productsBtnPanel')

  productsBtnPanel.align = alCenter;

  productsBtnPanel.margins.bottom = 300;

  

  productsBtn = anaSayfa.AddNewProButton(productsBtnPanel,'productsBtn','Ürünlerim');

  productsBtn.clprosettings.fontsize = 20;

  productsBtn.clProSettings.FontHorzAlign = palCenter;

  enUstLabel.clProSettings.FontVertAlign = palCenter;

  productsBtn.margins.right = 70;

  productsBtn.setclprosettings(productsBtn.clprosettings);

  

  anaSayfa.AddNewEvent(productsBtn,tbeOnClick,'toProductList');

  

  productsBtnImg = anaSayfa.AddNewProImage(productsBtnPanel, 'productsBtnImg');

  anaSayfa.setImage(productsBtnImg,'https://resmim.net/cdn/2025/06/27/Tu5gzi.png');

  productsBtnImg.align = alLeft;

  productsBtnImg.width = 20; 

  

  

  /*--------------------------------------------------------*/

  

  ordersBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'ordersBtnPanel')

  ordersBtnPanel.align = alCenter;

  ordersBtnPanel.margins.bottom = 150;

  

  ordersBtn = anaSayfa.AddNewProButton(ordersBtnPanel,'ordersBtn','Siparişler');

  ordersBtn.clprosettings.fontsize = 20;

  ordersBtn.clProSettings.FontVertAlign = palCenter;

  ordersBtn.margins.right = 70;

  ordersBtn.setclprosettings(ordersBtn.clprosettings);

  

  ordersBtnImg = anaSayfa.AddNewProImage(ordersBtnPanel, 'ordersBtnImg');

  anaSayfa.setImage(ordersBtnImg,'https://resmim.net/cdn/2025/06/27/Tus891.png');

  ordersBtnImg.align = alLeft;

  ordersBtnImg.width = 20; 

  

  /*--------------------------------------------------------*/

  

  entSettingsBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'entSettingsBtnPanel')

  entSettingsBtnPanel.align = alCenter;

  

  entSettingsBtn = anaSayfa.AddNewProButton(entSettingsBtnPanel,'entSettingsBtn','Ayarlar');

  entSettingsBtn.clprosettings.fontsize = 20;

  entSettingsBtn.clProSettings.FontHorzAlign = palCenter;

  enUstLabel.clProSettings.FontVertAlign = palCenter;

  entSettingsBtn.margins.right = 70;

  entSettingsBtn.setclprosettings(entSettingsBtn.clprosettings);

  

  entSettingsBtnImg = anaSayfa.AddNewProImage(entSettingsBtnPanel, 'entSettingsBtnImg');

  anaSayfa.setImage(entSettingsBtnImg,'https://resmim.net/cdn/2025/06/27/Tui6WL.png');

  entSettingsBtnImg.align = alLeft;

  entSettingsBtnImg.width = 20; 

  

  anaSayfa.AddNewEvent(entSettingsBtn,tbeOnClick,'toSettingsForm')

  

  /*--------------------------------------------------------*/  

  

  statisticsBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'statisticsBtnPanel')

  statisticsBtnPanel.align = alCenter;

  statisticsBtnPanel.margins.top = 150;

  

  statisticsBtn = anaSayfa.AddNewProButton(statisticsBtnPanel,'statisticsBtn','İstatistikler');

  statisticsBtn.clprosettings.fontsize = 20;

  statisticsBtn.clProSettings.FontHorzAlign = palCenter;

  enUstLabel.clProSettings.FontVertAlign = palCenter;

  statisticsBtn.margins.right = 70;

  statisticsBtn.setclprosettings(statisticsBtn.clprosettings);

  

  statisticsBtnImg = anaSayfa.AddNewProImage(statisticsBtnPanel, 'statisticsBtnImg');

  anaSayfa.setImage(statisticsBtnImg,'https://resmim.net/cdn/2025/06/27/Tu4T62.png');

  statisticsBtnImg.align = alLeft;

  statisticsBtnImg.width = 20; 

  

  anaSayfa.AddNewEvent(statisticsBtn,tbeOnClick,'toStatisticsForm');

  

  /*--------------------------------------------------------*/

  

  mainVertSB = anaSayfa.AddNewVertScrollBox(anaSayfa,'mainVertSB');

  mainVertSB.Align = alClient;

  getProGrid;

  

  /*--------------------------------------------------------*/  

  

  gonderBtnPanel = anaSayfa.AddNewProPanel(anaSayfa,'gonderBtnPanel');

  gonderBtnPanel.Align = alBottom;

  gonderBtnPanel.margins.bottom = 100;

  gonderBtnPanel.height = 50;

  

  /*--------------------------------------------------------*/  

  

  hepsiniGonderBtn = anaSayfa.AddNewProButton(gonderBtnPanel,'hepsiniGonderBtn','Hepsini Gönder');

  hepsiniGonderBtn.Align = alRight;

  hepsiniGonderBtn.margins.right = 50;

  hepsiniGonderBtn.height = 100;

  hepsiniGonderBtn.width = 300;

  hepsiniGonderBtn.clProSettings.IsRound = True;

  hepsiniGonderBtn.clProSettings.RoundWidth = 20;

  hepsiniGonderBtn.clProSettings.RoundHeight = 20;

  hepsiniGonderBtn.clProSettings.IsTransparent = false;

  hepsiniGonderBtn.clprosettings.fontsize = 32;

  hepsiniGonderBtn.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#d0e6e7');

  hepsiniGonderBtn.setclprosettings(hepsiniGonderBtn.clprosettings);

  

  anaSayfa.AddNewEvent(hepsiniGonderBtn,tbeOnClick,'hepsiniGonder');

  

  /*--------------------------------------------------------*/  

  

  secilenleriGonderBtn = anaSayfa.AddNewProButton(gonderBtnPanel,'secilenleriGonderBtn','Seçilenleri Gönder');

  secilenleriGonderBtn.Align = alLeft;

  secilenleriGonderBtn.margins.left = 50;

  secilenleriGonderBtn.height = 100;

  secilenleriGonderBtn.width = 300;

  secilenleriGonderBtn.clProSettings.IsRound = True;

  secilenleriGonderBtn.clProSettings.RoundWidth = 20;

  secilenleriGonderBtn.clProSettings.RoundHeight = 20;

  secilenleriGonderBtn.clProSettings.IsTransparent = false;

  secilenleriGonderBtn.clprosettings.fontsize = 32;

  secilenleriGonderBtn.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#d0e6e7');

  secilenleriGonderBtn.setclprosettings(secilenleriGonderBtn.clprosettings);

  

  anaSayfa.AddNewEvent(secilenleriGonderBtn,tbeOnClick,'secilenleriGonder');

  

  /*--------------------------------------------------------*/ 

  

  if(Clomosy.PlatformIsMobile)

  {

    gonderBtnPanel.Align = alCenter;

    gonderBtnPanel.margins.top = 150;

    hepsiniGonderBtn.Align = alCenter;

    secilenleriGonderBtn.Align = alCenter;

    hepsiniGonderBtn.margins.bottom = 150;

  }

  

  /*--------------------------------------------------------*/ 

  

  sureLabel = anaSayfa.AddNewLabel(anaSayfa,'sureLabel','');

  sureLabel.align = alMostBottom;

  sureLabel.margins.left = (anasayfa.clwidth/2)-10;

  timer = anaSayfa.AddNewTimer(anaSayfa,'timer', 1000);

  anaSayfa.AddNewEvent(timer,tbeOnTimer,'timershow');

  

  timerAc;

  

  /*--------------------------------------------------------*/ 

  

  

  

  anaSayfa.run;

}

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------