XE5 Titreşim - XE5 Vibration

Açıklayabileceğim fazla bir şey yok titreşim olayını bende net üzerinden ararken bulmuştum bu Titreşim proceduresini. Javanın VIBRATOR_SERVICE  sınıfından yararlanılarak yapılan bir procedur. Benim eklediğim kısım sadece *1000 olan kısımdır ve amacı titreşim için procedureye gönderilen sayının mili saniye olarak değilde direk saniye cinsinden olması içindir.

procedure Titret(Saniye: Integer);
var
TitresimServisi: JObject;
Titrek: JVibrator;
begin
TitresimServisi := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE);
Titrek := TJVibrator.Wrap((TitresimServisi as ILocalObject).GetObjectID);
Titrek.vibrate(Saniye*1000);
end;

  Tugrul Helvacı hocamızdan alıntıdır. Orjinal konu için tıklayınız