12-09-2013, 08:41 PM
karamofweb كتب :اشكرك لكن الطريقة لم تغير من قيم التايم بيكر ... زيادة عن هذا تغيرت قيم التيمر الى تواريخ خاطئة مثال 09/50/2013 ... 12/34/2013 ما الحل ؟أنا لا أرى أي شيء غير طبيعي
كود :
var
I: integer;
begin
for I := 0 to ComponentCount -1 do
begin
if Components[I] is TDateTimePicker then
begin
with Components[I] as TDateTimePicker do
begin
Format := FormatDateTime('dd-mm-yyyy', Now);
end;
end;
end;
end;
سبحان الله وبحمده سبحان الله العظيم