|
Var Form1: TCLForm; LayoutKutu: TclLayout; BtnBasla, BtnBilgi : TClProButton; ImgBilgi : TClProImage;
void BtnBaslaClick; { Clomosy.RunUnit('Ugiris'); }
void BtnBilgiClick; { ImgBilgi.Visible = True; ImgBilgi.BringToFront; }
void ImgBilgiClick; { ImgBilgi.Visible = False; }
{ Form1 = TCLForm.Create(Self);
// ARKA PLAN (SENİN GÖRSELİN) Form1.SetFormBGImage(' https://resmim.net/cdn/2026/01/21/wigtJn.png" rel="nofollow - https://resmim.net/cdn/2026/01/21/wigtJn.png ');
// BUTON ALANI (ALTTA) LayoutKutu = Form1.AddNewLayout(Form1, 'LayoutKutu'); LayoutKutu.Align = alBottom; LayoutKutu.Height = 140; LayoutKutu.Width = 320; LayoutKutu.Margins.Bottom = 40;
// OYNA (SOL) BtnBasla = Form1.AddNewProButton(LayoutKutu, 'BtnBasla', ''); BtnBasla.Align = alLeft; BtnBasla.Width = 150; BtnBasla.Height = 100;
// GÖRÜNMEZ BUTON AYARLARI BtnBasla.clProSettings.BackgroundColor = clAlphaColor.clNull; BtnBasla.clProSettings.BorderColor = clAlphaColor.clNull; BtnBasla.clProSettings.FontColor = clAlphaColor.clNull; BtnBasla.SetclProSettings(BtnBasla.clProSettings);
Form1.AddNewEvent(BtnBasla, tbeOnClick, 'BtnBaslaClick');
// NASIL OYNANIR? (SAĞ – DEVAM YERİ) BtnBilgi = Form1.AddNewProButton(LayoutKutu, 'BtnBilgi', ''); BtnBilgi.Align = alRight; BtnBilgi.Width = 150; BtnBilgi.Height = 100;
// GÖRÜNMEZ BUTON AYARLARI BtnBilgi.clProSettings.BackgroundColor = clAlphaColor.clNull; BtnBilgi.clProSettings.BorderColor = clAlphaColor.clNull; BtnBilgi.clProSettings.FontColor = clAlphaColor.clNull; BtnBilgi.SetclProSettings(BtnBilgi.clProSettings);
Form1.AddNewEvent(BtnBilgi, tbeOnClick, 'BtnBilgiClick');
// BİLGİ GÖRSELİ (POP-UP) ImgBilgi = Form1.AddNewProImage(Form1, 'ImgBilgi'); ImgBilgi.Align = alClient; ImgBilgi.Visible = False; ImgBilgi.clProSettings.PictureSource = ' https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png" rel="nofollow - https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png '; ImgBilgi.clProSettings.IsFill = True; ImgBilgi.SetclProSettings(ImgBilgi.clProSettings);
Form1.AddNewEvent(ImgBilgi, tbeOnClick, 'ImgBilgiClick');
Form1.Run; }
Yaptığım giriş ekranına buttona basıldığında ses vermesini istiyorum yardımcı olurmuşsunuz 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">
|