var

  MyForm : TclForm;

  TestBtn : TClProButton;

  DeviceManager1:TclDeviceManager;

void ButtonClicked;

{

  // Sadece mobildeysek titreşim çalışsın

  if (Clomosy.PlatformIsMobile)

  {

    // 100 milisaniye (kısa bir geri bildirim) titre

    DeviceManager1.Vibrate(1000); 

    ShowMessage('Telefon Titredi!');

  }

  else

  {

    ShowMessage('Bilgisayarda titreşim motoru olmadığı için bu özellik çalışmaz.');

  }

}

{

  MyForm = TclForm.Create(Self);

  

  TestBtn = MyForm.AddNewProButton(MyForm, 'TestBtn', 'Titreşimi Test Et');

  TestBtn.Align = alCenter;

  TestBtn.Width = 200;

  TestBtn.Height = 50;

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

  TestBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  TestBtn.clProSettings.RoundHeight = 10;

  TestBtn.clProSettings.RoundWidth = 10;

  TestBtn.SetclProSettings(TestBtn.clProSettings);

  

  MyForm.AddNewEvent(TestBtn, tbeOnClick, 'ButtonClicked');

  DeviceManager1 = TclDeviceManager.Create;

  MyForm.Run;

}