كيف اجعل tgauge تتقدم من البداية للنهاية بحسب انترفال التايمر

[rabihpascal]

السلام عليكم كيف اجعل tgauge تتقدم من البداية للنهاية بحسب انترفال التايمر

[Mr.DOS]

السلام عليكم
شاهد المثال المرفق

[rabihpascal]

هذا مثال جيد ولكن كيف يكون التقدم بحسب الانترفال اي اذا كان التايمر كل 3 توان ان تعيد tgauge العملية نفسها كل 3 ثوان ،كما انه لا مشكلة في استعمال 2 تايمر

[Agmcz]

PHP كود :

procedure GaugeStart(Gauge: TGauge);
begin
  Gauge.Progress := 0;
  repeat
    Gauge.Progress := Gauge.Progress + 1;
    Application.ProcessMessages;
  until Gauge.Progress = Gauge.MaxValue;
end; 


[rabihpascal]

شكرا اخي اعتقد ان هذا هو الحل الانسب شكرا جزيلا لك