|
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" rel="nofollow - 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" 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">
------------- Alper
|