Tids-forbrug 2

Lav opdateringen i den event du har på Aplication.OnIdle, den bliver udført når du ikke rører tastatur og mus.

/Martin

Hej Martin
Du skriver \'Lav opdateringen i den event...\' - kan du ikke uddybe det lidt nærmere?

/chrisx

form1=class
....
public
  procedure MyUpdate( Sender : TObject );
emd;

procedure TForm1.FormCreate( Sender : TObject );
begin
Application.OnIdle := MyUpdate;
end;

procedure TForm1.MyUpdate( Sender : TObject );
begin
// Update Label Her
end;

Jeg har indført koder som du har anvist, og der compileres uden error. Imidlertid giver det ingen ændring - formentlig grundet utilstrækkelig kode under \'//update label her\' - ?.
Iøvrigt er der ikke tale om at tidsforbruget begynder ved start og ophører når programmet sluttes. 
Man kan undervejs vælge forskellige opgaver og tidsforbruger starter når en opgave er valgt og slutter når der skiftes til en anden opgave.

Det virker OK pt - men altså kun når mus eller keyboard aktiveres, og det var ønskeligt at tidsforbruget vistes kontinuerligt.

en Label kan updateres ved at skrive label1.refresh, du kan jo prøve at sætte en breakpoint i din MyUpdate procedure og se om ikke programmet stopper der når du ikke bevæger musen