![]() | ![]() |
![]() | #1 |
IRCDForumu.COM ![]() Üyelik tarihi: 09 Kasım 2021 Üye No: 1 Mesajlar: 974 Konular: 819 Cinsiyet: İlişki Durumu: Şehir: ![]() ![]() REP Puanı : 10 | ![]()
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: Kod: 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; |
![]() | ![]() |
![]() |
Etiketler |
delphi program formu, delphi uyarı işareti |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Stil | |
| |
Forum | Yasal Uyarı |
Powered by vBulletin® Version 3.8.4 Copyright ©2000 - 2023, Jelsoft Enterprises Ltd. Kuruluş: IRCDForumu.COM © 2021 Kurucu: Apollo IRCDForumu.COM lisanslı vBulletin kullanmaktadır. |
Sitemiz bir "paylaşım" sitesidir. Bu yüzden Genel Forum sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCDForumu.Com hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda info@ircdforumu.com adresine mail atıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir. 5101 sayılı yasayla değişik 5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı T.C. Kültür ve Turizm Bakanlığı tarafından hak sahipliği verilmiş olan MÜ-YAP tarafından yasaklanmış olup, yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir. Kaliteli Backlinkler - Uğur - |