teşekkür ederim. İmza. . .

: bende bir aralar vbasicde digital yapmıştım tarihde gsteriyor hatta tarihin altındaki boşluğa tıklayınca not ekleme ekranı çıkıyo ve not ekleyip gnder deyinvce o boşlukta artık not çıkıyor ird tüm pencerelerin üzerinde tutabiliyorsun http://www.efsanefen.com/Takvim. exe guzel olmus

eyvallah saol cift tık kapatır sag tık ikinci skinkodu bu unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, math, jpeg;type TForm1 = class Timer1: TTimer; Timer2: TTimer; Image1: TImage; Image2: TImage; Label1: TLabel; procedure FormCreate ; procedure Timer1Timer ; procedure Image1DblClick ; procedure Image1MouseDown ; procedure Image1MouseUp ; procedure Timer2Timer ; procedure Image2MouseUp ; procedure Image2DblClick ; procedure Image2MouseDown ; private public end;var Form1: TForm1;implementation vary, x:variant;sn, dk, st, xx, yy:integer;sni, dki, sti, o:double;procedure TForm1. FormCreate ;vars:hrgn;beginsetwindowlong ;//grvcbus:=createellipticrgn(0,0,200,200);setwindowrgn ;form1. Left:=screen. Width-203;form1. top:=3;image1. Width:=200;image1. Height:=200;image2. Width:=200;image2. Height:=200;image2. Hide;timer2. Enabled:=false;sni:=4.72;dki:=4.72;sti:=4.72;o:=time/0.00001156828704;sn:=floor ;dk:=sn-60;st:=dk-720;while sn>0 dobeginsni:=sni+pi 0.1/3;sn:=sn-1;if dk=sn thenbegindki:=dki+pi 0.1/3;dk:=dk-60;if st=dk thenbeginsti:=sti+pi 0.1/3;st:=st-720;end;end;end;end;procedure TForm1. Timer1Timer ;beginimage1. Repaint;image2. Repaint;label1. Caption:=datetostr ;x:=50 cos ;y:=50 sin ;canvas. Pen. Width:=6;canvas. Pen. Color:=-512;canvas. MoveTo(100,100);canvas. LineTo(x+100, y+100);x:=64 cos ;y:=64 sin ;canvas. Pen. Width:=4;canvas. Pen. Color:=-512;canvas. MoveTo(100,100);canvas. LineTo(x+100, y+100);x:=80 cos ;y:=80 sin ;canvas. Pen. Width:=2;canvas. Pen. Color:=-512;canvas. MoveTo(100,100);canvas. LineTo(x+100, y+100);sn:=sn-1;if sn=dk thenbegindki:=dki+pi 0.1/3;dk:=dk-60;end;sni:=sni+pi 0.1/3;if st=dk thenbeginsti:=sti+pi 0.1/3;st:=st-720;end;end;procedure TForm1. Image1DblClick ;begin form1. Close;end;procedure TForm1. Image1MouseDown ;beginif button=mbleft thenbegintimer2. Enabled:=true;xx:=x;yy:=y;end;end;procedure TForm1. Image1MouseUp ;beginif button=mbright thenbeginimage2. Show;image1. Hide;endelsetimer2. Enabled:=false;end;procedure TForm1. Timer2Timer ;beginform1. Left:=mouse. CursorPos. X-xx;form1. Top:=mouse. CursorPos. Y-yy;end;procedure TForm1. Image2MouseUp ;beginif button=mbright thenbeginimage1. Show;image2. Hide;endelse timer2. Enabled:=false;end;procedure TForm1. Image2DblClick ;begin form1. Close;end;procedure TForm1. Image2MouseDown ;beginif button=mbleft thenbegintimer2. Enabled:=true;xx:=x;yy:=y;end;end;end.

okadar kotumu olmus yaw

bende bir aralar vbasicde digital yapmıştım tarihde gsteriyor hatta tarihin altındaki boşluğa tıklayınca not ekleme ekranı çıkıyo ve not ekleyip gnder deyinvce o boşlukta artık not çıkıyor ird tüm pencerelerin üzerinde tutabiliyorsun http://www.efsanefen.com/Takvim. exe İmza. . .

iki skinli umarım begenirsinizhttp://rapidshare.com/files/52472008/Project1. exe.html

güsel olmş hocam kodlarınıda açarmısın rica etsem olarmı?bide üzerine x koy işlemi sonlandırıp kapatıoz programı :) www.yesilgrow.com - Growshop