طيباوي
عدد المساهمات : 98 نقاط : 282 تاريخ التسجيل : 28/04/2015 الموقع : http://delph.forumalgerie.net
| موضوع: كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي الخميس يوليو 16, 2015 1:11 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;
| |
|
moktar
عدد المساهمات : 82 نقاط : 82 تاريخ التسجيل : 12/10/2016
| موضوع: رد: كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي الأربعاء أكتوبر 12, 2016 3:54 pm | |
| | |
|
samire
عدد المساهمات : 75 نقاط : 77 تاريخ التسجيل : 30/09/2016
| موضوع: رد: كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي الإثنين أكتوبر 24, 2016 5:20 pm | |
| | |
|
samire
عدد المساهمات : 75 نقاط : 77 تاريخ التسجيل : 30/09/2016
| موضوع: رد: كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي الإثنين أكتوبر 24, 2016 5:23 pm | |
| | |
|