Sayfayı Yazdır | Pencereyi Kapat

Sayfalar Arasında Geri Gitme

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=1243
Tarih: 11 Aralık 2025 Saat 23:53
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Sayfalar Arasında Geri Gitme
Mesajı Yazan: Eren Ö.
Konu: Sayfalar Arasında Geri Gitme
Mesaj Tarihi: 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?


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 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;
}


https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" rel="nofollow - 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">

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 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" rel="nofollow - 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">


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