Hej.
"Kasper Okkels" <okkels@stofanet.dk> wrote in message
news:0zCF6.1899$S4.938762@news101.telia.com...
> Hej gruppe - spørgsmål fra Delphi-nybegynder.
>
> Hvordan får jeg en Label.Caption til løbende at opdateres når min kode
> kører?
>
> Jeg skal køre nogle millioner simulationer, og vil gerne have, at jeg
> løbende kan følge med i resultatet. Hvis jeg eksempelvis ønsker at se hver
> 10.000 simulation troede jeg, at jeg kunne skrive:
>
> For i := 1 to AntalSimulationer do begin
> ** min kode **
> if i mod 10000 = 0 then begin
> Label1.Caption : = IntToStr(i);
> Label2.Caption := IntToStr(Resultat);
> end;
> end;
>
> Men så får jeg kun opdateret formen når løkken er kørt helt igennem. Hvad
> gør jeg galt? Svar udbedes, så en nybegynder kan forstå det.
>
Du har fået et par svar med ..processmessages.
Men jeg kan klart anbefale dig at lægge dine simulationer ud i en
baggrundstråd. Hvis du gør det på den måde, er vinduet (hovedtråden) stadig
aktiv, og den kan flyttes med musen osv..
Jeg vil tro du umiddelbart kan bruge den demo, der følger med under threads.
--
Med venlig hilsen/Best Regards
Stig Johansen - stig@w3data.dk
W3 Data - mailto@w3data.dk