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

procedure TForm1.Timer1Timer(Sender: T);
var
 d:TDateTime;
 x:integer;
 str:String;
begin
// 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);


لینک کوتاه پست
مطالب مرتبط با پست جاری
  • نکات مهم
    1- لطفا نظر خود را با زبان فارسی بیان کنید
    2- رایتم نظرات اسپم و تبلیغی شما را تایید نمی کند
    3- لطفا نظرات شما بدون ابهام و واضح باشد
  • نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
به کانال تلگرام سایت ما بپیوندید