Javascript must be enabled in your browser to use this page.
Please enable Javascript under your Tools menu in your browser.
Once javascript is enabled Click here to go back to PcTekno.NET | PTN |
Skip to content
Site Araçları
pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber pc webmaster bilgisayar teknoloji tekno haber
Konumunuz: Anasayfa arrow Delphi arrow Delphi program formunuzu titretin!
Delphi program formunuzu titretin! Yazdır E-posta
Üye Değerlendirme: / 0
Kötüİyi 
Çarşamba, 15 Ağustos 2007
Delphi'de hazırladığınız programa MSN'de olduğu gibi bazı koşullarda kullanıcıyı uyarmak ya da olaya mizahi bir özellik katmak için titreşim ekleyebilirsiniz.

Yapmanız gereken şey bu kodları kullanmak:

procedure NudgeWindow(theWinControl: TWinControl; non: integer; wSound: Boolean);

var

i, j, A, AK2: integer;

orgLeft, orgTop: integer;

P: array[1..9] of TPoint;

begin

orgLeft := theWinControl.Left;

orgTop := theWinControl.Top;

A := 5; AK2 := Round(A * sqrt(2));

// sekizgen koordinatlari

P[1] := Point(0, A);

P[2] := Point(-AK2, -AK2);

P[3] := Point(A, 0);

P[4] := Point(-AK2, AK2);

P[5] := Point(0, -A);

P[6] := Point(AK2, AK2);

P[7] := Point(-A, 0);

P[8] := Point(AK2, -AK2);

P[9] := Point(0, A);

// uses kismina MMSystem

if wSound then

PlaySound(PChar(’SES’), 0, SND_RESOURCE or SND_ASYNC);



for j:=1 to abs(non) do

begin

theWinControl.Left := orgLeft;

theWinControl.Top := orgTop;

for i:=1 to 9 do

begin

theWinControl.Left := theWinControl.Left + P.X;

theWinControl.Top := theWinControl.Top + P.Y;

theWinControl.Update;

Sleep(25); // ???

end;

end;

theWinControl.Left := orgLeft;

theWinControl.Top := orgTop;

end;


Ya da bunu formunuza bir timer nesnesi koyarak da yapabilirsiniz. Nasıl mı? Timer'ı calıştırıp falan ms (milisaniye) aralıkla formun yerini değiştirmesini sağlayarak. Tabi bu da formun ekrandaki yerlerini kodumuzda farklı tanımlayarak yapılabilir. Bence hem bu kodu deneyin, hem de timer'ı... Oldukça eğlenceli bir çalışma olacağını düşünüyorum.

Saygılarımla, herkese kolay gelsin...
Yorumlar (0)Add Comment

Yorum Yazın
Yorum ekleyebilmeniz için giriş yapmanız gerekiyor. Henüz bir hesabınız yoksa lütfen kayıt olun.

busy
 
Sonraki >

Ana Menü

Anasayfa
Haberler
PC Videolar
Download
Torrent Ara
Foto Galeri
E-Market
:: PcTekno.NET Forum ::
PC Sözlük
Sitemap
Arama
İletişim

Giriş Formu






Kayıp Parola?
Hesabınız yok mu? Kayıt Ol

İp Adresiniz

Ip Adresiniz: 38.103.63.55

Alexa