delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف اجعل tgauge تتقدم من البداية للنهاية بحسب انترفال التايمر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم كيف اجعل tgauge تتقدم من البداية للنهاية بحسب انترفال التايمر
السلام عليكم
شاهد المثال المرفق
هذا مثال جيد ولكن كيف يكون التقدم بحسب الانترفال اي اذا كان التايمر كل 3 توان ان تعيد tgauge العملية نفسها كل 3 ثوان ،كما انه لا مشكلة في استعمال 2 تايمر
PHP كود :
procedure GaugeStart(Gauge: TGauge);
begin
  Gauge
.Progress := 0;
  
repeat
    Gauge
.Progress := Gauge.Progress + 1;
    
Application.ProcessMessages;
  
until Gauge.Progress = Gauge.MaxValue;
end; 
شكرا اخي اعتقد ان هذا هو الحل الانسب شكرا جزيلا لك