Sayfayı Yazdır | Pencereyi Kapat

TCLDevice

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1298
Tarih: 11 Şubat 2026 Saat 20:42
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: TCLDevice
Mesajı Yazan: ebrarflz
Konu: TCLDevice
Mesaj Tarihi: 11 Şubat 2026 Saat 16:59
TCLDevice kullanırken vibrate aktif olmuyor çözümü nedir?



Cevaplar:
Mesajı Yazan: kaanl0
Mesaj Tarihi: 11 Şubat 2026 Saat 17:37
Merhaba Örnek olarak aşağıda attığım kodu incelermisin

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


Mesajı Yazan: ebrarflz
Mesaj Tarihi: 11 Şubat 2026 Saat 17:55
denedim ve başarılı sonuçlandı çok teşekkürler.



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net