منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-   الخميس يوليو 16, 2015 1:10 pm

كيفية تغيير التاريخ والوقت بواسطة برنامج -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;

الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sabire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-   الإثنين أكتوبر 24, 2016 5:21 pm

بارك الله فيكم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: