var

 MyForm:TCLForm;

 proBtn1 : TClProButton;

IsLongPress: boolean;

PressTimer: TClTimer;

 void OnTimerWork;

{

  PressTimer.Enabled = False; // Mesajı verdikten sonra sayacı durdur

  IsLongPress = True; // Süre doldu demek ki bu bir UZUN BASMA

  ShowMessage('2 SANİYE TIKLADINIZ');

}

void OnTouchStart;

{

  IsLongPress = False; // <-- Her dokunuşta önce sıfırla 

  PressTimer.Enabled = True; // Dokununca sayacı başlat

  proBtn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#757070'); // Daha açık gri

  proBtn1.SetclProSettings(proBtn1.clProSettings);

  

  

}

void OnTouchEnd;

{

  PressTimer.Enabled = False; // Elini çekerse sayacı iptal et

  proBtn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1e1e1e'); 

  proBtn1.SetclProSettings(proBtn1.clProSettings);

  

}

void Buttons

{

  

proBtn1 = MyForm.AddNewProButton(MyForm,'proBtn1','Click Me');

proBtn1.clProSettings.FontSize = 12;

proBtn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1e1e1e');

MyForm.AddNewEvent(proBtn1, tbeOnMouseDown, 'OnTouchStart');

MyForm.AddNewEvent(proBtn1, tbeOnMouseUp, 'OnTouchEnd');

proBtn1.SetclProSettings(proBtn1.clProSettings);

}

 

{

MyForm = TCLForm.Create(Self);

PressTimer = MyForm.AddNewTimer(MyForm, 'PressTimer', 425);

PressTimer.Enabled = False;

MyForm.AddNewEvent(PressTimer, tbeOnTimer, 'OnTimerWork');

Buttons;

MyForm.Run;

}