Programınıza Msn Tarzı PopUp form koymak isteyebilirsiniz, belkide istemezsiniz ama ben genede size bir ip ucu vereyim hemde çok hoş ve basit ayrıca kapanırkende şeffaflaşarak görünmez oluyor. Sanki msn deki bu sistemi ben yapmışım gibi 

Programınızı bir form ekleyin ve formun adını msnpop koyun isim önemli değil benim örnekte formun adı msnpop olduğu için bu ismi koyun dedim.
1. Forma 3 tane timer koyun
   Timerlere şu isimleri verin ve süreleri burdaki gibi yapın.
   yukari : 25
   asagi : 25
  kapat :3600
2. Timerlerin enable değerini false yapın



Burda size örnek verildi isterseniz siz forma bir resim koyarak daha görsel hale getirebilirsiniz. 

AnimateWindow elbette var ancak benim kod otomatik pilot çalışıyor sürelere göre form kendi şeffaflaşarak kapanıyor ve formu StayOnTop yaparsanda en üstte açılıyor ve neyin nasıl yapıldığı görülüyor. Yediğin yemeği pişerken görmek gibi veya kendin pişirmek gibi bir şey. Konu başlığıda MSN tarzı denildiğen göre MSN Tarzına en yakınını bulmak lazım.

Formun OnShow olayında herşey başladığı için forma kapanınca her şey sıfırlanıdığına göre böyle birşey olmaması lazım ve bende olmuyor. Sen formu hafızadan silmiyorsan mutlaka timerler aktif kalıyor ve böylece formun top değeri timerde sürekli arttığı için  formun top'u monitörden aşağı iniyor yer altına geçiyor biraz da geç tıklanırsa taaa mağma tabakasına kadar iniyordur ve bir daha tıkladığında senin mönitürn altı taaa mağma tabakasına kadar inemediği için form gözükmüyordur.

Yukardaki kodları tekrar incele ve formuda herseferinde create et ve kapanışta sil. Yada kapanışta tüm timerleri kapatmayı unutma.

yani sen formu

      msnpop:=Tmsnpop.Create(Application);
      msnpop.ShowModal;
      msnpop.Free;

ben böyle yapıyorum yani formu kapanınca hafızadan siliyorum.

ShowModal in özelliği kapanmadığı sürece diğer formaları aktif ettirmez ama bir faydasıda kendini diğer programların açık formaların arkasında bıraktırmaz normal show yaparsan ekranı kaplamış başka formun arkasında kalabilir açılıp kapanır ama kimse görmez.

//kendi programımdaki formu açan kod aşağıda timer randevuları kontrol ediyor ve saati gelen varsa
// formu açıyor, beep ediyor ve müzik tanımlanmışsa müziği çalmaya başlıyor. ve bir daha gösterilmemesi için işaret atıyor.

procedure TAnaform.RandevuKontrolTimer(Sender: TObject);
var
s:Ttime;
begin
s:=Time();
Data.Randevu.First;
while not Data.Randevu.Eof do begin
  if (Data.RandevuTARIH.Value=date()) and (s > strtoTime(Data.RandevuSAAT.Value) ) and ( Data.RandevuOKUNDU.Text='HAYIR') then begin
      RandevuKontrol.Enabled:=False;
      Data.Randevu.Edit;
      Data.RandevuOKUNDU.Value:='EVET';
      Data.Randevu.Post;
      Data.Baglanti.CommitRetaining;
      if (Data.RandevuMUZIK.Value<>'') and (fileExists(Data.RandevuMUZIK.Text))  then
          WinExec(Pchar('Mp3Player.Exe "'+Data.RandevuMUZIK.Text+'"'),sw_show)
       else
          PlaySound('alarm',hInstance,snd_resource or snd_async);

      msnpop:=Tmsnpop.Create(Application);
      msnpop.ShowModal;
      msnpop.Free;
      break;
  end;
  Data.Randevu.Next;
end;
RandevuKontrol.Enabled:=True;
end;


//////
// bunlarda benim formun tam kodları


procedure Tmsnpop.asagiTimer(Sender: TObject);
begin
msnpop.Top:=msnpop.Top+3;
msnpop.AlphaBlendValue:=msnpop.AlphaBlendValue-2;
if msnpop.Top >= screen.Height then begin
   msnpop.Close;
end;


end;

procedure Tmsnpop.KapatTimer(Sender: TObject);
begin
asagi.Enabled:=True;
msnpop.AlphaBlend:=True;
msnpop.AlphaBlendValue:=250;
end;

procedure Tmsnpop.FormCreate(Sender: TObject);
begin
ArkaPlan.Picture.Bitmap.LoadFromResourceID(HInstance,110);
end;

procedure Tmsnpop.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
msnpop.Close;
end;

procedure Tmsnpop.FormShow(Sender: TObject);
begin
mesaj.Caption:=Data.RandevuTARIH.asString+''#13#10''+ Data.RandevuSAAT.AsString+''#13#10''+Data.RandevuBASLIK.text;
msnpop.Top:=screen.Height;
msnpop.Left:=screen.Width -( msnpop.Width +20 );
Yukari.Enabled:=True;
end;

procedure Tmsnpop.YukariTimer(Sender: TObject);
begin
msnpop.Top:=msnpop.Top-3;
if msnpop.Top<= screen.Height -( msnpop.Height + 30 )  then begin
   Yukari.Enabled:=False;
   beep;
   kapat.Enabled:=True;
end;

end;