TclForm Oluşturma - Buton animasyonu

Sayfayı Yazdır | Pencereyi Kapat

Buton animasyonu

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Form Oluşturma
Forum Adı: TclForm Oluşturma
Forum Tanımlaması: Standart bir form oluşturma
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1238
Tarih: 23 Ocak 2026 Saat 15:19
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Buton animasyonu

Mesajı Yazan: Hüseyin_Sadik
Konu: Buton animasyonu
Mesaj Tarihi: 04 Aralık 2025 Saat 12:17

void MouseMove;

{

}

GirisButton = Myform.AddNewProButton(MyForm, 'GirisButton', 'GİRİŞ');

clComponent.SetupComponent(GirisButton,'{ "caption": "Giriş", "MarginBottom": 1, "Width": 250,

"Height": 60}');

GirisButton.clProSettings.RoundHeight = 15;

GirisButton.clProSettings.RoundWidth = 15;

GirisButton.clProSettings.BorderWidth = 3;

GirisButton.ClProSettings.BackgroundColor = clAlphaColor.clYellow;

GirisButton.SetClProSettings(GirisButton.ClProSettings);

MyForm.AddNewEvent(GirisButton, tbeOnClick,'ButtonClick');

Myform.AddNewEvent(GirisButton, tbeOnMouseMove, 'MouseMove')

fonksiyona ne girersek fare butonun üzerine gelince buton büyür animasyon şeklinde

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">

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 04 Aralık 2025 Saat 13:55

Merhaba Hüseyin,
Öncelikle şunu belirtmek istiyorum bileşen özelliklerini tanımlarken SetupComponent yapısını kullanmamanı istiyorum.
Aşağıda bir örnek bırakıyorum incelemen için;

var

MyForm: TclForm;

btnAnimasyon: TclProButton;

void ButonTikla

{

// Buton boyutunu büyüt

btnAnimasyon.Width = btnAnimasyon.Width + 20;

btnAnimasyon.Height = btnAnimasyon.Height + 10;

// Renk değiştir

btnAnimasyon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF5722');

btnAnimasyon.SetclProSettings(btnAnimasyon.clProSettings);

}

{

MyForm = TclForm.Create(Self);

MyForm.SetFormColor('#f5f5f5', '', clGNone);

// Animasyonlu buton

btnAnimasyon = MyForm.AddNewProButton(MyForm, 'btnAnimasyon', 'Tıkla');

btnAnimasyon.Align = alCenter;

btnAnimasyon.Width = 150;

btnAnimasyon.Height = 50;

btnAnimasyon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2196F3');

btnAnimasyon.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

btnAnimasyon.clProSettings.FontSize = 16;

btnAnimasyon.clProSettings.IsRound = True;

btnAnimasyon.clProSettings.RoundHeight = 25;

btnAnimasyon.clProSettings.RoundWidth = 25;

btnAnimasyon.SetclProSettings(btnAnimasyon.clProSettings);

MyForm.AddNewEvent(btnAnimasyon, tbeOnClick, 'ButonTikla');

MyForm.Run;

}