شرح منتدى البرمجة - كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi- - منتديات الجلفة لكل الجزائريين و العرب

العودة   منتديات الجلفة لكل الجزائريين و العرب > منتديات التقنية > منتدى البرمجة

منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل...

 


في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة تقرير عن مشاركة سيئة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .

آخر المواضيع

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 2015-07-16, 12:57   رقم المشاركة : 1
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-

كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي

انشاء مشروع جديد دلفي

Nouveau Projet Delphi

1 -> TForm
2 -> TEdit
2 -> TLabel
1 -> TButton

ضع على الفورم 2 مربع نص من نوع -TEdit-
و 2 مربع لافتة من من نوع -TLabel-
1 زر ضغط من نوع -TButton-


كود:
procedure TForm1.Button1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  dDate: TDate;
  mTime: TTime;
begin
// '16/07/2015'  or  '16-07-2015' and '10:15:00' for Windows XP 32bit
  dDate := StrToDate(Edit1.Text);
  mTime := StrToTime(Edit2.Text);
  DateTimeToSystemTime(dDate + mTime, SystemTime);
  SetLocalTime(SystemTime);
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0);
end;

كود:
procedure TForm1.FormShow(Sender: TObject);
begin
 Label1.Caption := 'Entrez Date';
 Label1.Caption := 'Entrez Time';
 Edit1.Text :=DateToStr(Now);
 Edit2.Text :=TimeToStr(Now);
 Button1.Enabled := false;
end;

كود:
procedure TForm1.Edit1Change(Sender: TObject);
begin
 if(Edit1.Text <> '')or(Edit2.Text <> '')then
   Button1.Enabled := true else Button1.Enabled := false;
end;
كود:
procedure TForm1.Edit2Change(Sender: TObject);
begin
 Edit1Change(Sender);
end;






 

رد مع اقتباس
مساحة إعلانية

قديم 2015-11-26, 17:04   رقم المشاركة : 2
معلومات العضو
Geekkmonir
عضو جديد
 
إحصائية العضو










افتراضي

شكرا جزيلا لك أخي







رد مع اقتباس
قديم 2016-01-03, 07:21   رقم المشاركة : 3
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي

بارك الله فيـــــــــــــــــــــكم







رد مع اقتباس
قديم 2016-01-04, 18:15   رقم المشاركة : 4
معلومات العضو
MaherPT
عضو جديد
 
إحصائية العضو










افتراضي

شكرا جزيلا







رد مع اقتباس
قديم 2016-01-31, 10:44   رقم المشاركة : 5
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي

بارك الله فيكم







رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
-delphi-, التاريخ, برنامج, تغيير, بواسطة, والوقت, كيفية

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

الساعة الآن 06:32

المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية


2006-2017 © www.djelfa.info جميع الحقوق محفوظة - الجلفة إنفو (خ. ب. س)

Powered by vBulletin .Copyright © 2016 vBulletin Solutions, Inc