المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيف أجد الوقت مباشرة في edit


SALAH
07-06-2008, 01:45 PM
سلام
****ا ان تبينوا لي كيفيفة أجد الوقت بالساعة والدقيقة 13:44 مثلا في edit مباشرة عند فتح الفورم
شكرا

B.M.AbdelAziZ
07-06-2008, 01:56 PM
Edit1.Text := FormatDateTime('HH:MM',Now);

SALAH
07-06-2008, 02:50 PM
جزاك الله خيرا

delphi555
26-11-2008, 10:40 PM
جيد **** لك الاستفادة

rachid.mtb
22-12-2008, 12:22 PM
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=timetostr(now);
end;

benhassine62
22-12-2008, 07:46 PM
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=FormatDateTime('HH:MM:SS',Now);
end;

Dr.MOT
24-12-2008, 11:18 AM
السلام عليكم ,,

ما وضعه الأخوهـ إجابة كافيه لسؤالك ,, جزاهم الله خير ,,

لكن اأكواد التي وضعت ,, ربما لا تفي بالغرض !!

بحيث لا تظهر اوقت مساء ام صباح ,,

,ايظا هي تعمل بنظام الـ 24 ساعه أي : 1. .2. .3. . 4 ..... 13...وهكذا حتىا 24

( لذلك لا تظهر مساء ام صباح )

باستثناء كود اأخ : rachid.mtb


ضع هذا الكود في تايمر ,,

للوقت :

edit1.text:=TimeToStr(Time);


وأيظا للتاريخ :

edit1.text:=DateToStr(Date);

,والسلام عليكم !