مرکز تخصصی دلفی

این کد زمان را به طور دقیق بر روی دسکتاپ نقش می کند.اگر // اولی را بردارید فرم مخفی می شود و فقط ساعت نمایش داده می شود.و اگر // دومی را بردارید پس زمینه ساعت حذف می شود.

procedure TForm1.Timer1Timer(Sender: TObject);
var//© 2005 koosha system Software http://delphi-center.blogfa.com
 d:TDateTime;
 x:integer;
 str:String;
begin//© 2005 koosha system Software http://delphi-center.blogfa.com
// form1.Hide;
  desktopcanvas:=TCanvas.Create;
  desktopcanvas.Handle:=GetDC(HWND_DESKTOP);
  d:=Time;
  str:=TimeToStr(d);
//desktopcanvas.Brush.Style:=bsClear;
  desktopcanvas.Font.Color:=clRed;
  desktopcanvas.Font.Name:=('tahoma');
 desktopcanvas.Font.Size:=20;
  desktopcanvas.TextOut(12,12,str);
 SetBkMode(Canvas.Handle,x);
end;//© 2005 koosha system Software http://delphi-center.blogfa.com