Delphi program formunuzu titretin!

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.

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...
  • Etiketler;
Ziya Kahraman
Samsun'da doğdu. Üniversite'ye kadar bu şehirde öğrenim gördü. Sonra Atatürk Üniversitesi'nde dil okudu. Türkçe öğretmenliğini bitirdi; ama eğitimci olmadı. Türkçe'yle yoğruldu dört yıl. Bu esnada yazılım dilleri kurcaladı zihnini.. HTML, PHP, ASP, CSS, Pascal.. Hepsinden bir tutam aldı, kokladı bıraktı. <P>Sonra tasarımı keşfetti. PS, AI, C4D derken grafik programlarını öğrenmeye başladı. Grafik programlarını ustalıklı kullanmaya başladı. Ama asıl işin programları öğrenmek olmadığını anlaması da çok geç olmadı. Gözünü eğitmesi gerektiğini fark etti ve tasarım kültürü üzerine kafa yordu. Grafiğin felsefesini özümsemeye çalıştı. Noktaların sadece nokta olmadığını düşünerek başladı asıl tasarlama serüveni. Önceleri yalnızca hayal kurdu, imgelerle boğuştu; zihninde tasarladı çizgileri, renkleri, şekillleri.. Sonra ekrana geçti hayaller ve ardından kağıtlara.. <P>Hâlihazırda grafik tasarımcı olarak çalışıyor. Genellikle katalog, dergi, broşür, kurumsal kimlik, logo ve ambalaj tasarımı yapıyor. Bunlar yanında 3B modelleme ve interaktif tasarım da çalışıyor. Yayınlamayı düşündüğü bir rubai kitabı, tamamlamaya çalıştığı bir şiir, bir de hikâye kitabı bulunuyor.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Ben bu programı çalıştıramadım form'a eklememiz gereken herhangi bir nesne yok mu???
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

Yukarı Git