1)Animasyonlu Form
Acıklama :Kodu FormCreate Koyun....
Kod:::: animatewindow(handle,500,aw_center);

2)Label Kaydırma [Kayan Yazı]
Acıklama : Form a 1 adet label ve timer nesnesi ekleyiniz kodu timer nesnesine koyunuz...
label1.caption:=COPY(label1.caption,2,LENGTH(label 1.caption)-1]label1.caption[1];

3)Renkli Label
Acıklama::: Form a 1 adet label ve timer nesnesi ekleyiniz. kodu timer nesnesine koyunuz..
var
c:TColor;
begin
c:=Label1.Color;
Label1.Color:=Label1.Font.Color;
Label1.Font.Color:=c;

4)Form Başlığına Tarih Saat Ekleme
Acıklama:: FormCreate Koyun....
form1.caption:='Tarih '+datetostr(date] ' Saat '+ timetostr(time);

5)Pc Kapatma Kodu
Acıklama := Kodu Herhangi Bir Buttona Koyunuz..
var
i:dword;
c:word;
a,s:string;
begin
c:=application.MessageBox('Bilgisayarınız Kapatılsınmı! ?','Uyarı', MB_YESNO+MB_ICONQUESTION);
IF c=IDyes then
begin
ExitWindowsEx(EWX_SHUTDOWN,i);
end;
end;
end.

6)Şeffaf Form
Acıklama:FormCreate Koyunuz...

AlphaBlend := true;
AlphaBlendValue := 200;

Alıntı:
ByFixTRame Şimdilik Bu Kadar

__________________