Sayfayı Yazdır | Pencereyi Kapat

butona basıldığında yeni sayfa

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1459
Tarih: 18 Haziran 2026 Saat 15:14
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: butona basıldığında yeni sayfa
Mesajı Yazan: nezeroz
Konu: butona basıldığında yeni sayfa
Mesaj Tarihi: 02 Mayıs 2026 Saat 14:53
Aşağıdaki kodu yazmama rağmen butona basıldığında yeni sayfaya geçmiyor. Bunu nasıl düzeltmeliyim ? https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Var   
  Form1:TclForm;
  ProBtn : TClProButton;
void BtnOnClick;

{
Clomosy.RunUnit('uyeni');
}

{
  Form1 = TclForm.Create(Self);
  
  ProBtn = Form1.AddNewProButton(Form1,'ProBtn','');
  ProBtn.Align = alCenter;
  ProBtn.Width = 250;
  ProBtn.Height = 150;
  //ProBtn.clProSettings.FontColor = clAlphaColor.clhextoColor ('#198fc2');
 // ProBtn.clProSettings.backgroundcolor = clAlphaColor.clhextoColor ('#d0b9df');
  ProBtn.clProSettings.bordercolor = clAlphaColor.clhextoColor ('#000000');
  
 // ProBtn.clProSettings.FontSize = 12;
  ProBtn.clProSettings.borderwidth = 3;
  //ProBtn.clProSettings.roundwidth = 35;
  //ProBtn.clProSettings.roundheight = 30;
  ProBtn.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
  ProBtn.clProSettings.FontHorzAlign = palCenter;
  //ProBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  ProBtn.clProSettings.PictureSource = '/assets/giris';
  ProBtn.SetclProSettings(ProBtn.clProSettings);
  
  Form1.Run;
}


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 03 Mayıs 2026 Saat 22:06
Merhabalar, 

Bu kodda herhangi bir hata yok rica etsem uyeni birimin de yer alan kodu da atabilir misin?
Ya da bu birim de herhangi bir kodlama var mı? https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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: nezeroz
Mesaj Tarihi: 03 Mayıs 2026 Saat 22:33
uyeni birimine yazdığımız kod  https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

var
 MyForm:TCLForm;
{
MyForm = TCLForm.Create(Self);
MyForm.Run;
}

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 03 Mayıs 2026 Saat 22:51
Var   
  Form1:TclForm;
  ProBtn : TClProButton;
void BtnOnClick;

{
Clomosy.RunUnit('uyeni');
}

{
  Form1 = TclForm.Create(Self);
  
  ProBtn = Form1.AddNewProButton(Form1,'ProBtn','');
  ProBtn.Align = alCenter;
  ProBtn.Width = 250;
  ProBtn.Height = 150;
  //ProBtn.clProSettings.FontColor = clAlphaColor.clhextoColor ('#198fc2');
  ProBtn.clProSettings.backgroundcolor = clAlphaColor.clhextoColor ('#d0b9df');
  ProBtn.clProSettings.bordercolor = clAlphaColor.clhextoColor ('#000000');
  
 // ProBtn.clProSettings.FontSize = 12;
  ProBtn.clProSettings.borderwidth = 3;
  //ProBtn.clProSettings.roundwidth = 35;
  //ProBtn.clProSettings.roundheight = 30;
  ProBtn.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
  ProBtn.clProSettings.FontHorzAlign = palCenter;
  //ProBtn.clProSettings.TextSettings.Font.Style = [fsBold];
 // ProBtn.clProSettings.PictureSource = '/assets/giris';
  ProBtn.SetclProSettings(ProBtn.clProSettings);
  Form1.AddNewEvent(ProBtn,tbeOnClick,'BtnOnClick');
  Form1.Run;
}


eksik kısmı buldum 

proBtn altına 
Form1.AddNewEvent(ProBtn,tbeOnClick,'BtnOnClick');
Event yani tetiklenme eklenmemiş butona bu kod eklendiğinde kod çalışacaktır 
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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