Basit Yılan oyunu ilerleme


   Sadece yukarı aşağı giden bu çok basit yılan oyunum yukarı aşağı gitmiyor bunu nasıl çözerim? 

var

MyForm : TclGameForm
kare : TClProButton
 void KeyDown
 {
   if (MyForm.clSenderKeyChar == 32)
   {
    kare.margins.top = 5
   }
   else if (MyForm.clSenderKeyChar == 119)
   {
     kare.margins.bottom = -5
   }
 }
 
 
void asagi
{
  kare.margins.top = 5
  
  kare.margins.bottom = -5
}
{
MyForm = TclGameForm.Create(Self);

  kare = MyForm.AddNewProButton(MyForm, 'kare', '')
  kare.Align = alCenter;
  kare.Width = 50;
  kare.Height = 60;
  kare.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
  kare.clProSettings.RoundHeight = 10;
  kare.clProSettings.RoundWidth = 10;
  kare.clProSettings.BorderWidth = 2;
  kare.clProSettings.IsFill = True; 
  kare.clProSettings.IsRound = True;
  kare.clProSettings.PictureSource = 'https://clomosy.com/demos/computerNetwork.png';
  kare.clProSettings.PictureAutoFit = True;
  kare.SetclProSettings(kare.clProSettings);
  
  MyForm.AddNewEvent(MyForm,tbeOnKeyDown,'KeyDown' )
  
  
  MyForm.run
}

Çok teşekkürler
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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Alper Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 17 Kasım 2025 Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı Alper Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Basit Yılan oyunu ilerleme Gönderim Zamanı: 6 Saat 38 Dakika Önce Saat 12:40
	Sadece yukarı aşağı giden bu çok basit yılan oyunum yukarı aşağı gitmiyor bunu nasıl çözerim? var MyForm : TclGameForm kare : TClProButton void KeyDown { if (MyForm.clSenderKeyChar == 32) { kare.margins.top = 5 } else if (MyForm.clSenderKeyChar == 119) { kare.margins.bottom = -5 } } void asagi { kare.margins.top = 5 kare.margins.bottom = -5 } { MyForm = TclGameForm.Create(Self); kare = MyForm.AddNewProButton(MyForm, 'kare', '') kare.Align = alCenter; kare.Width = 50; kare.Height = 60; kare.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2'); kare.clProSettings.RoundHeight = 10; kare.clProSettings.RoundWidth = 10; kare.clProSettings.BorderWidth = 2; kare.clProSettings.IsFill = True; kare.clProSettings.IsRound = True; kare.clProSettings.PictureSource = 'https://clomosy.com/demos/computerNetwork.png'; kare.clProSettings.PictureAutoFit = True; kare.SetclProSettings(kare.clProSettings); MyForm.AddNewEvent(MyForm,tbeOnKeyDown,'KeyDown' ) MyForm.run } Çok teşekkürler 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">
	Alper