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


   -----------------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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
AcarPlus Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 27 Temmuz 2026 Konum: Konya Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı AcarPlus Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Başka Bir Unitten AnaKod Bloğu Unitine Geçmek Gönderim Zamanı: 10 Saat 19 Dakika Önce 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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 1006	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 10 Saat 11 Dakika Önce 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 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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">