Clomosy | Forum : Sayfalar Aras�nda Geri Gitme

Sayfalar Aras�nda Geri Gitme : UnitB ve UnitC için şu şekil de...

Thu, 11 Dec 2025 16:24:00 +0000

Yazar: Emr.Erkmn
Konu: 1243
G�nderim Zaman�: 11 Aral�k 2025 Saat 16:24

UnitB ve UnitC i�in �u �ekil de yapabiliriz kodlar�n� a�a��ya b�rak�yorum;

////////////////////UnitB////////////////

var

FrmB: TclForm;

BtnGitC, BtnGeriA: TclProButton;

UnitC: TclUnit;

void GeriDon;

{

FrmB.Close;

}

void GitUnitC;

{

UnitC = TclUnit.Create;

UnitC.UnitName = 'UnitC';

UnitC.CallerForm = FrmB;

UnitC.Run;

}

{

FrmB = TclForm.Create(Self);

BtnGitC = FrmB.AddNewProButton(FrmB, 'BtnGitC', 'Unit C`ye Git >');

BtnGitC.Align = alTop;

BtnGitC.Height = 100;

BtnGitC.Margins.Top = 50;

FrmB.AddNewEvent(BtnGitC, tbeOnClick, 'GitUnitC');

BtnGeriA = FrmB.AddNewProButton(FrmB, 'BtnGeriA', '< Geri D�n (A`ya)');

BtnGeriA.Align = alBottom;

BtnGeriA.Height = 50;

BtnGeriA.clProSettings.BackgroundColor = clAlphaColor.clRed;

BtnGeriA.SetclProSettings(BtnGeriA.clProSettings);

FrmB.AddNewEvent(BtnGeriA, tbeOnClick, 'GeriDon');

FrmB.Run;

}

////////////////UnitC//////////////////

var

FrmC: TclForm;

BtnGeriB: TclProButton;

LblBilgi: TclProLabel;

void GeriDon;

{

FrmC.Close;

}

{

FrmC = TclForm.Create(Self);

LblBilgi = FrmC.AddNewProLabel(FrmC, 'LblBilgi', 'Buras� Unit C (Son Durak)');

LblBilgi.Align = alTop;

LblBilgi.Height = 50;

BtnGeriB = FrmC.AddNewProButton(FrmC, 'BtnGeriB', '< Geri D�n (B`ye)');

BtnGeriB.Align = alCenter;

BtnGeriB.Height = 80;

BtnGeriB.Width = 200;

BtnGeriB.clProSettings.BackgroundColor = clAlphaColor.clBlue;

BtnGeriB.SetclProSettings(BtnGeriB.clProSettings);

FrmC.AddNewEvent(BtnGeriB, tbeOnClick, 'GeriDon');

FrmC.Run;

}

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Sayfalar Aras�nda Geri Gitme : Merhaba Eren,Clomosy de sayfalar...

Thu, 11 Dec 2025 16:17:35 +0000

Yazar: Emr.Erkmn
Konu: 1243
G�nderim Zaman�: 11 Aral�k 2025 Saat 16:17

Merhaba Eren,
Clomosy de sayfalar aras�nda yani formlar y��n mant�yla �al��yor. Unit A'dan Unit B'ye, B'den de C'ye ge�ildi�in de bu sayfalar �st �ste dizilir. C sayfas�ndan B'ye d�nmek i�in C'yi kapatmak gerekiyor veya gizlemek gerekiyor.
Kendi �zelle�tirilmi� Geri D�n butonunu olu�turman gerekiyor ad�mlar�;
Unit C i�erisinde bir buton olu�tur,
bu butona t�klad��n da prosed�r tetiklensin

//////////////////Anakod/////////////////

var

MainForm: TclForm;

BtnGitB: TclProButton;

UnitB: TclUnit;

void GitUnitB;

{

UnitB = TclUnit.Create;

UnitB.UnitName = 'UnitB';

UnitB.CallerForm = MainForm;

UnitB.Run;

}

{

MainForm = TclForm.Create(Self);

BtnGitB = MainForm.AddNewProButton(MainForm, 'BtnGitB', 'Unit B`ye Git >');

BtnGitB.Align = alCenter;

BtnGitB.Height = 50;

BtnGitB.Width = 200;

MainForm.AddNewEvent(BtnGitB, tbeOnClick, 'GitUnitB');

MainForm.Run;

}

///////////////UnitB/////////////////////

var

FrmB: TclForm;

BtnGitC, BtnGeriA: TclProButton;

UnitC: TclUnit;

void GeriDon;

{

FrmB.clHide;

CallerForm.clShow;

}

void GitUnitC;

{

UnitC = TclUnit.Create;

UnitC.UnitName = 'UnitC';

UnitC.CallerForm = FrmB;

UnitC.Run;

}

{

FrmB = TclForm.Create(Self);

BtnGitC = FrmB.AddNewProButton(FrmB, 'BtnGitC', 'Unit C`ye Git >');

BtnGitC.Align = alTop;

BtnGitC.Height = 100;

BtnGitC.Margins.Top = 50;

FrmB.AddNewEvent(BtnGitC, tbeOnClick, 'GitUnitC');

BtnGeriA = FrmB.AddNewProButton(FrmB, 'BtnGeriA', '< Geri D�n (A`ya)');

BtnGeriA.Align = alBottom;

BtnGeriA.Height = 50;

BtnGeriA.clProSettings.BackgroundColor = clAlphaColor.clRed;

BtnGeriA.SetclProSettings(BtnGeriA.clProSettings);

FrmB.AddNewEvent(BtnGeriA, tbeOnClick, 'GeriDon');

FrmB.Run;

}

////////////////////////////UnitC///////////////////

var

FrmC: TclForm;

BtnGeriB: TclProButton;

LblBilgi: TclProLabel;

void GeriDon;

{

FrmC.clHide;

CallerForm.clShow;

}

{

FrmC = TclForm.Create(Self);

LblBilgi = FrmC.AddNewProLabel(FrmC, 'LblBilgi', 'Buras� Unit C (Son Durak)');

LblBilgi.Align = alTop;

LblBilgi.Height = 50;

BtnGeriB = FrmC.AddNewProButton(FrmC, 'BtnGeriB', '< Geri D�n (B`ye)');

BtnGeriB.Align = alCenter;

BtnGeriB.Height = 80;

BtnGeriB.Width = 200;

BtnGeriB.clProSettings.BackgroundColor = clAlphaColor.clBlue;

BtnGeriB.SetclProSettings(BtnGeriB.clProSettings);

FrmC.AddNewEvent(BtnGeriB, tbeOnClick, 'GeriDon');

FrmC.Run;

}

Sayfalar Aras�nda Geri Gitme : Oluşturduğumuz unitler arasında...

Thu, 11 Dec 2025 15:20:30 +0000

Yazar: Eren �.
Konu: 1243
G�nderim Zaman�: 11 Aral�k 2025 Saat 15:20

Olu�turdu�umuz unitler aras�nda gidip gelmek isterken nas�l bir yol izlemeliyiz?
�rnek: Unit A'dan, Unit B'ye, Unit B'den Unit C'ye gittikten sonra bizim olu�turdu�umuz button'a t�klad��m�zda nas�l C'den B'ye geri d�nebiliriz? Yan� k�sacas�, Clomosy'nin sundu�u geri tu�unu tekrar olu�turup �zelle�tirmek istiyorum. Nas�l yapabilirim?