Form Üzerine 1 Adet Timer Bileşeni 1 Adet Shape Bileşeni 5 Adet Label Bileşeni (12,3,6 ve 9 yerine koyun) Bir Adet popu menü bileşeni unit Saat; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menus, shellapi; type TForm1 = class Timer1: TTimer; Shape1: TShape; Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; PopupMenu1: TPopupMenu; Kapat1: TMenuItem; Label5: TLabel; raydaBekle1: TMenuItem; procedure Timer1Timer ; procedure FormCreate ; procedure Image1MouseDown ; procedure Image1DblClick ; procedure Kapat1Click ; procedure FormMouseMove ; procedure raydaBekle1Click ; procedure Image1Click ; private public end; var Form1: TForm1; stray:NOTIFYICONDATA; implementation function modulal :Integer; begin while x < 0 do begin x := x + 360; end; Result := x; end; function kactane :Integer; var times: Integer; begin times := 0; while x >= y do begin x := x - y; times := times + 1; end; Result := times; end; procedure TForm1. Timer1Timer ; var sn: Integer; dk: Integer; st: Integer; x: String; y: String; z: String; dg: Extended; dg2: Extended; dg3: Extended; linex: Integer; liney: Integer; linex2: Integer; liney2: Integer; linex3: Integer; liney3: Integer; begin x := TimeToStr ; y := TimeToStr ; z := TimeToStr ; Delete(x, 1,6); Delete(y, 1, 3); Delete(y, 3, 3); Delete(z, 3,6); sn := StrToInt ; dk := StrToInt ; st := StrToInt ; dg := ((modulal((90 - (sn 6))) pi ) / 180); dg2 := ((modulal((90 - (dk 6))) pi ) / 180); dg3 := ((modulal((90 - (st 30) - (kactane(dk, 6) 3) )) pi ) / 180); linex := 110 + Round(90 cos ; liney := 110 - Round(90 sin ; linex2 := 110 + Round(90 cos(dg2)); liney2 := 110 - Round(90 sin(dg2)); linex3 := 110 + Round(55 cos(dg3)); liney3 := 110 - Round(55 sin(dg3)); Form1. Refresh; with Form1. Canvas do begin Pen. Width := 1; MoveTo(110,110); Pen. Color := clRed; LineTo ; MoveTo(110,110); Pen. Width := 2; Pen. Color := clblue; LineTo(linex2, liney2); MoveTo(110,110); Pen. Width := 3; LineTo(linex3, liney3); end; end; procedure TForm1. FormCreate ; begin SetWindowLong ; with stray do begin cbsize:=sizeof ; wnd:=form1. handle; hicon:=Application. icon. Handle; uID:=0; sztip:=Program Tray Üzerinde; uflags:=7; uCallBackMessage:=$200;//icon üzerine tıklama kontrolu için end; Shell_NotifyIcon(0,@stray); Brush. Style:=bsClear; end; procedure TForm1. Image1MouseDown ; begin if Button = mbLeft then begin ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE+1,0); end; end; procedure TForm1. Image1DblClick ; begin close; end; procedure TForm1. Kapat1Click ; begin close; end; procedure TForm1. FormMouseMove ; var nokta:TPoint; begin getCursorPos ; if (x=$205) then PopupMenu1. Popup ; end; procedure TForm1. raydaBekle1Click ; begin if form1. Visible=false then form1. Visible:=true else form1. Visible:=false; end; end. Gerçekten çok hoş bir görüntüsü var arkadaşlar.

dostum bu kodlar neyin kodu visual in kodumu lord_-

Peki sana bir soru ; girdiğin bölüm ne bölümü? RooT-

BU KODLARI DERLEMEK İÇİN DELPHİ PROGRAMLAMA DİLİNİ BİLMENE GEREK YOK EYER DELPHİ VARSA PC NDE AÇ VE FORMDA ADAMIN YAZDIĞI LABELLERİ VS LERİ KOY VE KODLARI COPY PASTE

ark. lar bunlar delphi kodlari keşke delphi orenseydim ama olsun onu da oreniriz

bunlarda ne yaaaff