var

girisyuz: TclForm

logo1: TClProImage

anapanel: TclProPanel

ustabtn,musteribtn : TclProButton

void OnUstaEnter;

{

  clComponent.SetupComponent(ustabtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');

}

{

///////////

girisyuz=TclForm.Create(Self);

girisyuz.SetFormColor('#12192C','',clGNone);

girisyuz.clSetWindowState(fwsMaximized)

/////////////ANA PANEL

anapanel=girisyuz.AddNewProPanel(girisyuz, 'anapanel');

clComponent.SetupComponent(anapanel,'{"Align":"Center","Width":450,"Height":650, "BackgroundColor":"#12192C"}');

/////////////LOGO

logo1 = girisyuz.AddNewProImage(anapanel, 'logo1');

girisyuz.SetImage(logo1,' https://resmim.net/cdn/2026/05/05/CoxjKC.png" rel="nofollow - https://resmim.net/cdn/2026/05/05/CoxjKC.png ');

clComponent.SetupComponent(logo1, '{"Align":"Top", "Height":200,"Width":200}');

logo1.RotationAngle= 5

//////////USTA BUTON

ustabtn=girisyuz.AddNewProButton(anapanel, 'ustabtn','   Ben Ustayım' + #13 + '   Müşteri kabul et ve işlem kaydet');

clComponent.SetupComponent(ustabtn,'{"Align":"Top", "MarginTop":50, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}')

girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove , 'OnUstaEnter');

girisyuz.run;

}

kodum bu şekilde başlatınca çalışıyor ama mouseyi buton üstüne getirdiğimde border rengi değişmiyor 

Mouse'un hareketlerini dinleyen bir event mevcut fakat hover yani üzerine gelme durumunu dinleyen bir event clomosy de mevcut değil ama yine de yapılabilinir.

Alt kısımdaki örnekte senin kullanmış olduğun setup component yapısını clprosettings yapısına çevirdim. SetupComponent yapısından daha güncel bir yapıdır. İnecelemek istersen :  https://www.docs.clomosy.com/Pro_Object_Properties" rel="nofollow - https://www.docs.clomosy.com/Pro_Object_Properties

Kullanılan Yapı ise farenin o anki konumuna göre kimin "shout" (bağırdığını) takip eder. Eğer bağıran (ustabtn) butonun kendisi değilse, butonun stilini anında eski haline döndürür.

var

  girisyuz: TclForm;

  logo1: TClProImage;

  anapanel: TclProPanel;

  ustabtn, musteribtn: TclProButton;

  // Durumu takip etmek için global bir boolean

  isHoveredNow: Boolean;

void ManageHover(target: TclProButton);

var

  HoverState: Boolean;

{

  // Mevcut durumu hesapla (içeride miyiz?)

  HoverState = (girisyuz.clSender == target);

  

  // Eğer durum değişmediyse (hala içerdeyiz veya hala dışardayız), hiçbir şey yapma ve çık

  // Bu kontrol SetclProSettings'in her frame'de çalışmasını engeller

  if (HoverState == isHoveredNow)

  {

    // Fonksiyondan çık

    Exit;

  }

  // Durum değiştiyse (Giriş veya Çıkış gerçekleştiyse) işlem yap

  if (HoverState)

  {

    // Giriş anı: Sadece 1 kez çalışır

    target.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FF8C00');

    target.clProSettings.BorderWidth = 2;

    target.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#25304E');

  }

  else

  {

    // Çıkış anı: Sadece 1 kez çalışır

    target.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1C253E');

    target.clProSettings.BorderWidth = 1;

    target.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1C253E');

  }

  

  // Sadece durum değişince bileşeni güncelle

  target.SetclProSettings(target.clProSettings);

  

  // Yeni durumu kaydet

  isHoveredNow = HoverState;

}

void OnGeneralMouseMove;

{

  ManageHover(ustabtn);

}

{

  girisyuz = TclForm.Create(Self);

  girisyuz.SetFormColor('#12192C', '', clGNone);

  girisyuz.clSetWindowState(fwsMaximized);

  anapanel = girisyuz.AddNewProPanel(girisyuz, 'anapanel');

  anapanel.Align = alCenter;

  anapanel.Width = 450;

  anapanel.Height = 650;

  anapanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#12192C');

  anapanel.SetclProSettings(anapanel.clProSettings);

  logo1 = girisyuz.AddNewProImage(anapanel, 'logo1');

  girisyuz.SetImage(logo1, ' https://resmim.net/cdn/2026/05/05/CoxjKC.png" rel="nofollow - https://resmim.net/cdn/2026/05/05/CoxjKC.png ');

  logo1.Align = alTop;

  logo1.Height = 200;

  logo1.Width = 200;

  logo1.RotationAngle = 5;

  ustabtn = girisyuz.AddNewProButton(anapanel, 'ustabtn', '   Ben Ustayım' + #13 + '   Müşteri kabul et ve işlem kaydet');

  ustabtn.Align = alTop;

  ustabtn.Height = 80;

  ustabtn.Margins.Top = 50;

  // Başlangıç tasarımı

  ustabtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1C253E');

  ustabtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  ustabtn.clProSettings.FontSize = 14;

  ustabtn.clProSettings.TextSettings.Font.Style = [fsBold];

  ustabtn.clProSettings.IsRound = True;

  ustabtn.clProSettings.RoundHeight = 15;

  ustabtn.clProSettings.RoundWidth = 15;

  ustabtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1C253E');

  ustabtn.clProSettings.BorderWidth = 1;

  ustabtn.SetclProSettings(ustabtn.clProSettings);

  

  // State başlangıç değeri

  isHoveredNow = False;

  girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove, 'OnGeneralMouseMove');

  girisyuz.AddNewEvent(anapanel, tbeOnMouseMove, 'OnGeneralMouseMove');

  girisyuz.AddNewEvent(girisyuz, tbeOnMouseMove, 'OnGeneralMouseMove');

  girisyuz.Run;

}

Tam burada farenin o anki konumuna göre kimin "shout" (bağırdığını) takip eder. Eğer bağıran (ustabtn) butonun kendisi değilse, butonun stilini anında eski haline döndürür.

  girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove, 'OnGeneralMouseMove');

  girisyuz.AddNewEvent(anapanel, tbeOnMouseMove, 'OnGeneralMouseMove');

  girisyuz.AddNewEvent(girisyuz, tbeOnMouseMove, 'OnGeneralMouseMove');

Eğer ki form'a yeni bir obje eklenecek ise event tanımlanmalı yoksa o objenin mouse üzerinden çıktığını anlayamaz