كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-
صفحة 1 من اصل 1 • شاطر
كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-
كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي
انشاء مشروع جديد دلفي
Nouveau Projet Delphi
1 -> TForm
2 -> TEdit
2 -> TLabel
1 -> TButton
ضع على الفورم 2 مربع نص من نوع -TEdit-
و 2 مربع لافتة من من نوع -TLabel-
1 زر ضغط من نوع -TButton-
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
كيفية تغيير التاريخ والوقت بواسطة برنامج تم انجازه بالدلفي
انشاء مشروع جديد دلفي
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;
مواضيع مماثلة
» اظهار تاريخ والوقت -DELPHI-
» برنامج صانع الاكواد delphi
» الفروق بين الدلفي Delphi و سي ++ c++ builder
» شرح كيفية استعمال شرط بدلفي
» برنامج بسيط
» برنامج صانع الاكواد delphi
» الفروق بين الدلفي Delphi و سي ++ c++ builder
» شرح كيفية استعمال شرط بدلفي
» برنامج بسيط
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى