ben taib allaa
عدد المساهمات : 17 نقاط : 11793 تاريخ التسجيل : 11/07/2013 الموقع : http://delph.forumalgerie.net/
| موضوع: كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi- الخميس يوليو 16, 2015 2:57 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;
| |
|