Tipy a triky v Delphi, díl 110. - práce ve volném čase

ale já bych to upravil takto:

procedure TForm1.MyIdleHandler(Sender: TObject; var done: Boolean);
begin
  if ProgressBar1.Position <100 then ProgressBar1.Position := ProgressBar1.Position + 1
                                else ProgressBar1.Position := 0;
  Done := False;
end;

Pro nějakou trvalou činnost v době "nečinnosti" aplikace bych ovšem tuto činnost umístil do separátního threadu a přiřadil mu prioritu tpIdle.

Dotaz,

existuje neco jako Application.OnWork?   

Mozna to bude znit sadisticky, ale potrebuju provest nejakou malou funkci, kdy aplikace je zaneprazdnena (ne 100% samozrejmne, nemela by prostredky).

Dekuji

Tonda

Dotaz,

existuje neco jako Application.OnWork?   

Mozna to bude znit sadisticky, ale potrebuju provest nejakou malou funkci, kdy aplikace je zaneprazdnena (ne 100% samozrejmne, nemela by prostredky).

Dekuji

Tonda

Dotaz,

existuje neco jako Application.OnWork?   

Mozna to bude znit sadisticky, ale potrebuju provest nejakou malou funkci, kdy aplikace je zaneprazdnena (ne 100% samozrejmne, nemela by prostredky).

Dekuji

Tonda

Dotaz,

existuje neco jako Application.OnWork?   

Mozna to bude znit sadisticky, ale potrebuju provest nejakou malou funkci, kdy aplikace je zaneprazdnena (ne 100% samozrejmne, nemela by prostredky).

Dekuji

Tonda

Dotaz,

existuje neco jako Application.OnWork?   

Mozna to bude znit sadisticky, ale potrebuju provest nejakou malou funkci, kdy aplikace je zaneprazdnena (ne 100% samozrejmne, nemela by prostredky).

Dekuji

Tonda

Dotaz,

existuje neco jako Application.OnWork?   

Mozna to bude znit sadisticky, ale potrebuju provest nejakou malou funkci, kdy aplikace je zaneprazdnena (ne 100% samozrejmne, nemela by prostredky).

Dekuji

Tonda

Sorry, mesi problem s odesilanim....

T>

Dotaz,

existuje neco jako Application.OnWork?   

Mozna to bude znit sadisticky, ale potrebuju provest nejakou malou funkci, kdy aplikace je zaneprazdnena (ne 100% samozrejmne, nemela by prostredky).

Dekuji

Tonda