dügmeye tıklanmıyor
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=998
Tarih: 26 Nisan 2025 Saat 17:40
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com
Konu: dügmeye tıklanmıyor
Mesajı Yazan: BAAM11
Konu: dügmeye tıklanmıyor
Mesaj Tarihi: 24 Nisan 2025 Saat 11:31
|
bu koda dügmeye tıklanmıyor     var myform:TCLform; panel1,panel2:TCLPanel; image1:TCLImage; ugiris,sislem,fgor:TClProButton; void girisgit { //Clomosy.RunUnit('giris'); ShowMessage('sdsdsdsd'); } { myform=TCLform.Create(self); myform.clSetWindowState(fwsMaximized); myform.LytTopBar.Visible = False;//True myform.SetFormBGImage('https://resmim.net/cdn/2025/04/24/N6cJzo.jpg'); panel2=myform.AddNewPanel(myform,'panel2'); panel2.Align=alTop; ugiris=myform.AddNewProButton(panel2,'ugiris', 'Ürün Girişi'); sislem=myform.AddNewProButton(panel2,'sislem', 'Satış İşlemi'); fgor=myform.AddNewProButton(panel2,'fgor', 'Fiyat Gör'); ugiris.Margins.right = 1200; fgor.Margins.right = 700; sislem.Height = 60; sislem.Margins.right = 950; sislem.Width = 100; sislem.clProSettings.FontColor = clAlphaColor.clhextocolor('#000000'); sislem.clProSettings.FontSize = 13; sislem.clProSettings.PictureSource = 'https://resmim.net/cdn/2025/04/24/N6qatH.png'; sislem.SetclProSettings(sislem.clProSettings); fgor.Height = 60; fgor.Width = 100; panel1=myform.AddNewPanel(MyForm,'panel1'); image1=myform.AddNewImage(Panel1,'image1'); //Panel1.Align = alLeft; Panel2.height=myform.clheight/10; Panel1.height=myform.clheight/120; image1.width=1700; image1.height=300; ugiris.Height = 60; ugiris.Width = 100; ugiris.clProSettings.FontColor = clAlphaColor.clhextocolor('#000000'); ugiris.clProSettings.FontSize = 13; ugiris.clProSettings.PictureSource = 'https://resmim.net/cdn/2025/04/24/N6qZcW.png'; ugiris.SetclProSettings(ugiris.clProSettings); MyForm.AddNewEvent(ugiris,tbeOnClick,'girisgit'); myform.Run; }
|
Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 25 Nisan 2025 Saat 12:01
|
Kodunu incelediğim de üst üste panel gelmesinden dolayı butona erişmiyorsun. Kodun düzenli halini atıyorum o şekilde devam edebilirsin. var myform:TCLform; panel1,panel2:TCLPanel; image1:TCLImage; ugiris,sislem,fgor:TClProButton; void girisgit { //Clomosy.RunUnit('giris'); ShowMessage('sdsdsdsd'); } { myform=TCLform.Create(self); myform.clSetWindowState(fwsMaximized); myform.LytTopBar.Visible = False;//True myform.SetFormBGImage(' https://resmim.net/cdn/2025/04/24/N6cJzo.jpg" rel="nofollow - https://resmim.net/cdn/2025/04/24/N6cJzo.jpg '); panel2=myform.AddNewPanel(myform,'panel2'); panel2.Align=alTop; Panel2.height=myform.clheight/10; ugiris=myform.AddNewProButton(panel2,'ugiris', 'Ürün Girişi'); ugiris.Margins.right = 1200; ugiris.Height = 60; ugiris.Width = 100; ugiris.clProSettings.FontColor = clAlphaColor.clhextocolor('#000000'); ugiris.clProSettings.FontSize = 13; ugiris.clProSettings.PictureSource = ' https://resmim.net/cdn/2025/04/24/N6qZcW.png" rel="nofollow - https://resmim.net/cdn/2025/04/24/N6qZcW.png '; ugiris.SetclProSettings(ugiris.clProSettings); MyForm.AddNewEvent(ugiris,tbeOnClick,'girisgit'); sislem=myform.AddNewProButton(panel2,'sislem', 'Satış İşlemi'); sislem.Height = 60; sislem.Margins.right = 950; sislem.Width = 100; sislem.clProSettings.FontColor = clAlphaColor.clhextocolor('#000000'); sislem.clProSettings.FontSize = 13; sislem.clProSettings.PictureSource = ' https://resmim.net/cdn/2025/04/24/N6qatH.png" rel="nofollow - https://resmim.net/cdn/2025/04/24/N6qatH.png '; sislem.SetclProSettings(sislem.clProSettings); fgor=myform.AddNewProButton(panel2,'fgor', 'Fiyat Gör'); fgor.Margins.right = 700; fgor.Height = 60; fgor.Width = 100; /* panel1=myform.AddNewPanel(MyForm,'panel1'); image1=myform.AddNewImage(Panel1,'image1'); //Panel1.Align = alLeft; image1.width=1700; image1.height=300; */ myform.Run; }
bu şekilde kod çalışır durumda böyle devam edebilirsin |