Titreşim MSN deki Gibi

~~*MeLeK*~~ · 28-01-2008, 12:32

Alıntı:

// titreşim örneği
// formu veya bir kontrolü titretin

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[i].X;
theWinControl.Top := theWinControl.Top + P[i].Y;
theWinControl.Update;
Sleep(25); //

end;
end;
theWinControl.Left := orgLeft;
theWinControl.Top := orgTop;
end;

/// kullanimi
NudgeWindow(Form1, 3, true);

.

~~SaSuke~~ · 11-03-2008, 17:00

kardes açıklama pls

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
MEtin2 deki durumunuz ne?	beşiktaşlı	Anket	12	25-08-2008 13:53
Msnde titreşim yerine istediğin şarkıçalsın :)))	mysterious	Msn, Icq, Yahoo Messenger	4	23-05-2008 22:33
Profil kısmına açılır kutucuk ekleme (ipb deki gibi)	X-Destroyer	SMF	1	01-02-2008 14:49
Obeziteye karşı 'titreşim'	Hemşire	Sağlık Haberleri	0	23-10-2007 15:50
msn deki millet kaç kişi ?	HaYDuT_Lowe	Off Topic	16	10-07-2007 12:25

11-03-2008, 17:00	#2 (permalink)
~~SaSuke~~ Banlandı Üyelik tarihi: 14-01-2008 Nerden: so.org barınağı :D Mesajlar: 0 Konular: 116 Üye No: 17261 Ruh halim: Rep Gücü : 0 Rep Puanı : 0 Rep Seviyesi :	kardes açıklama pls