Yazar:Ziya Kahraman Eklenme: 01.08.2007 Okunma: 2382
Puan: 3.0 Seviyesi: Başlangıç
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.
Hayır herhangi bir bileşen eklemeye lüzum yok. Zaten burada biz formun farklı noktalara hareket etmesi mantığından yola çıkarak böyle bir işlem gerçekleştiriyoruz.
playsaund hata verir cunku ses dosyasi tanımlamaniz laziim
BU DERSE YORUM EKLEYİN
Üye olmadan yorum ekleyemezsiniz !
UYARI: SANALKURS.net'te yer alan materyaller ile ilgili her türlü sorumluluk hazırlayan veya gönderene aittir. Yazarlar, gönderdikleri makale ve derslerle başkalarını yanıltıcı bilgi veremezler. SANALKURS.net bilgilerin kullanımı sonucunda doğacak hata ve zararlardan sorumlu tutulamaz. SANALKURS.net'te yer alan bir makale link vermek ve kaynak göstermek şartıyla başka bir sitede yayınlanabilir. SANALKURS.net kullanıcıları ve üyeleri, üçüncü kişilerin telif hakkı sahibi bulunduğu hiçbir yazı, fotoğraf, resim vb. materyal ve ürünü kullanamazlar. SANALKURS.net kullanıcı ve yazarlarının, üçüncü kişilerin telif hakkı sahibi olduğu yazı, resim vb. ürünleri izinsiz kullanması durumunda, her türlü hukuki ve cezai sorumluluk kendilerine aittir.
İSTATİSTİKLER
ÇEVRİMİÇİ
174 Ziyaretçi, 7 Üye BuKi ®, NaRe_TuRKeY, bozoklar, Charisma_47, siracel, Bym.ülkü, Gervinho Bugün: 906, Dün: 10154, Bu Ay: 21273, Toplam Ziyaret: 7227085, Toplam Üye: 216260, Son Üye:nur_cihan Yazılı Dersler: 2460, Video Dersler: 408, Toplam Yazar: 64, Toplam Dosya: 53, Toplam Link: 26