Clomosy | Forum : Başka Bir Unitten AnaKod Bloğu Unitine Geçmek

Clomosy | Forum : Başka Bir Unitten AnaKod Bloğu Unitine Geçmek https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 30 Jul 2026 11:51:35 +0000 Thu, 30 Jul 2026 09:24:52 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1641 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Başka Bir Unitten AnaKod Bloğu Unitine Geçmek : Merhaba Enes,Clomosy de birimler...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1641&PID=3801#3801 Yazar: Emr.Erkmn
Konu: 1641
Gönderim Zamanı: 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 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">

]]> Thu, 30 Jul 2026 09:24:52 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1641&PID=3801#3801 <![CDATA[Başka Bir Unitten AnaKod Bloğu Unitine Geçmek : -----------------ana kod bloğum------------------var...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1641&PID=3800#3800 Yazar: AcarPlus
Konu: 1641
Gönderim Zamanı: 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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">]]> Thu, 30 Jul 2026 09:16:35 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1641&PID=3800#3800