Merhaba Alperen,
Clomosy' de standart bir web uygulaması olduğu için doğrudan .cur veya .ani dosyasını yükleyip cursor özelliğine atamak yerine sahte imleç yapabiliriz.
var MyForm : TclForm; MyCursor : TclProImage; TestBtn : TclProButton;
// Fare her hareket ettiğinde çalışacak prosedür void MoveCursorImage; { MyCursor.Position.X = MyForm.clFormMousePosX; MyCursor.Position.Y = MyForm.clFormMousePosY; }
{ MyForm = TclForm.Create(Self); TestBtn = MyForm.AddNewProButton(MyForm, 'TestBtn', 'Tıklama Testi'); TestBtn.Align = alCenter; TestBtn.Height = 50; TestBtn.clProSettings.BackgroundColor = clAlphaColor.clRed; TestBtn.SetclProSettings(TestBtn.clProSettings); // 2. İmleç Olacak Resim MyCursor = MyForm.AddNewProImage(MyForm, 'MyCursor'); MyCursor.clSetImage(' https://resmim.net/cdn/2025/12/24/w3oiVi.png" rel="nofollow - https://resmim.net/cdn/2025/12/24/w3oiVi.png '); MyCursor.Width = 40; MyCursor.Height = 40; MyCursor.Align = alNone; // Serbest dolaşabilmesi için None olmalı MyCursor.HitTest = False; MyForm.AddNewEvent(MyForm, tbeOnMouseMove, 'MoveCursorImage');
MyForm.Run; }
Örnek kodu bu şekilde. 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">
|