---

Hej, jeg har bøvl med følgende action, idet min første værditildeling til
mit label 'StatusLabel' ikke ser ud til at virke under runtime (linie 04):

01 procedure TForm1.StartButtonClick(Sender: TObject);
02 var t1,t2,timediff : LongInt;
03 begin
04 StatusLabel.Caption := 'Matrix is filled, please wait!';
05 t1 := GetTickCount;
06 FillMatrix;
07 t2 := GetTickCount;
08 StatusLabel.Caption := IntToStr(N)+'x'+IntToStr(M)
09 + ' Matrix of summed numbers'
10 +#10#13+'has been filled 100 times.';
11 timediff := t2-t1;
12 TimeEdit.Text := IntToStr(timediff);
13 end;

Dog, når jeg udkommenterer linie 04-11 så træder linie 04 i kraft igen.
Den anden caption tildeling (linie 08-10) virker i begge tilfælde. Hvorfor
ignoreres linie 04 med ovenstående programstump, og hvordan udbedres dette?

Mvh
Steen

---

Prøv Update;

F.eks

Label1.caption := 'Start';
form1.update;
//kode her
Label1.caption := 'Slut';
end;

mvh Thomas R

"Stenovitz" <anonymous@no.home> skrev i en meddelelse
news:Xns95949A2DE927Fanonymousnohome@194.255.237.239...
> Hej, jeg har bøvl med følgende action, idet min første værditildeling til
> mit label 'StatusLabel' ikke ser ud til at virke under runtime (linie 04):
>
> 01 procedure TForm1.StartButtonClick(Sender: TObject);
> 02 var t1,t2,timediff : LongInt;
> 03 begin
> 04 StatusLabel.Caption := 'Matrix is filled, please wait!';
> 05 t1 := GetTickCount;
> 06 FillMatrix;
> 07 t2 := GetTickCount;
> 08 StatusLabel.Caption := IntToStr(N)+'x'+IntToStr(M)
> 09 + ' Matrix of summed numbers'
> 10 +#10#13+'has been filled 100 times.';
> 11 timediff := t2-t1;
> 12 TimeEdit.Text := IntToStr(timediff);
> 13 end;
>
> Dog, når jeg udkommenterer linie 04-11 så træder linie 04 i kraft igen.
> Den anden caption tildeling (linie 08-10) virker i begge tilfælde. Hvorfor
> ignoreres linie 04 med ovenstående programstump, og hvordan udbedres
dette?
>
> Mvh
> Steen
>

---

"Thor" <thor@thor.thor> wrote in news:cm5gvj$26ia$1@news.cybercity.dk:

> Prøv Update;
>
> F.eks
>
> Label1.caption := 'Start';
> form1.update;
> //kode her
> Label1.caption := 'Slut';
> end;
>

Tak, det var lige det, der skulle til

Mvh
Steen

---

Stenovitz <anonymous@no.home> wrote in message news:<Xns95949D092271Danonymousnohome@194.255.237.231>...
> "Thor" <thor@thor.thor> wrote in news:cm5gvj$26ia$1@news.cybercity.dk:
>
> > Prøv Update;
> >
> > F.eks
> >
> > Label1.caption := 'Start';
> > form1.update;
> > //kode her
> > Label1.caption := 'Slut';
> > end;
> >
>
> Tak, det var lige det, der skulle til
>
> Mvh
> Steen

Det er faktisk nok med

Label1.Caption:='Start';
Label1.Update;