Sayfayı Yazdır | Pencereyi Kapat

Başka Bir Unitten AnaKod Bloğu Unitine Geçmek

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1641
Tarih: 30 Temmuz 2026 Saat 11:51
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Başka Bir Unitten AnaKod Bloğu Unitine Geçmek
Mesajı Yazan: AcarPlus
Konu: Başka Bir Unitten AnaKod Bloğu Unitine Geçmek
Mesaj Tarihi: 30 Temmuz 2026 Saat 09:16
-----------------ana kod bloğum------------------

var
  MyForm : TclForm;

//GİRİŞ YÖNLENDİRİLMESİ
void LoginAdmin;
{
  Clomosy.RunUnit('UserRegisterUnit');
  MyForm.clhide;
}
void loginPersonal;
{
  Clomosy.RunUnit('LoginUnit');
  MyForm.clhide;
}

------------------------------------------
şeklinde ana kod bloğundan UserRegisterUnit e geçiş yapabiliyorum ama UserResgisterUnitten tekrar ana kod bloğuna dönmeyi başaramadım.
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 30 Temmuz 2026 Saat 09:24
Merhaba Enes,

Clomosy de birimler arası geçişleri iki metotla yapabiliyor. 
1. RunUnit
2. TclUnit

Birimler arasında geçişler yapmak için TclUnit  https://www.docs.clomosy.com/TclUnit" rel="nofollow - https://www.docs.clomosy.com/TclUnit kullanmanı tavsiye ederim. 

////////////////ANAKOD//////////////////
var
  MyForm : TclForm;
  btnAdmin, btnPersonal : TClProButton;
  RegisterUnit, PersonalUnit : TclUnit;

void LoginAdmin;
{
  RegisterUnit.UnitName = 'UserRegisterUnit';
  RegisterUnit.CallerForm = MyForm;
  RegisterUnit.Run;
}


{
  MyForm = TclForm.Create(Self);
  
  RegisterUnit = TclUnit.Create;
  PersonalUnit = TclUnit.Create;

  btnAdmin = MyForm.AddNewProButton(MyForm, 'btnAdmin', 'Kayıt Ekranına Git');
  btnAdmin.Align = alTop;
  btnAdmin.Height = 50;
  btnAdmin.Margins.Top = 100;
  btnAdmin.Margins.Left = 50;
  btnAdmin.Margins.Right = 50;
  

  MyForm.AddNewEvent(btnAdmin, tbeOnClick, 'LoginAdmin');
  
  MyForm.Run;
}


/////////////////BİRİM/////////////////
var
  MyForm : TclForm;
  btnBack : TClProButton;

void GoBackToMain;
{
  MyForm.clHide;
}

{
  MyForm = TclForm.Create(Self);

  btnBack = MyForm.AddNewProButton(MyForm, 'btnBack', 'Geri Dön');
  btnBack.Align = alTop;
  btnBack.Height = 50;
  btnBack.Margins.Top = 50;
  btnBack.Margins.Left = 50;
  btnBack.Margins.Right = 50;

  MyForm.AddNewEvent(btnBack, tbeOnClick, 'GoBackToMain');

  MyForm.Run;
}






https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net