Caption of UniLabel don't change.

[Ario.Paxaz]

Hi

 

I write below code,But

const
  magicnumber = 500;

procedure TMainForm.Button2Click(Sender: TObject);
var
  I, J: Integer;
  X, Y: Word;
begin
  I := 0;
  J := 0;

  UniLabel1.Caption:='The Button2Click handler has started';

  while I < magicnumber do
  begin
    Randomize;
    while J < magicnumber do
    begin
      Y := Random(J);
      Inc(J);
      Sleep(10);
    end;
    X := Random(I);
    Inc(I);
  end;
  UniLabel1.Caption:='The Button2Click handler is finished';

end;

This line code ,

  UniLabel1.Caption:='The Button2Click handler has started';

Don't Work.I have unipanel and put unilabel1 on it.and set unipanel   AlignmentControl to uniAlignmentClient.

 

Best Regards.

[Sherzod]

Hi,

 

In your case, you should use:

 

1. MainModule -> EnableSynchronousOperations -> True

 

2.

...
I := 0;
J := 0;

UniLabel1.Caption:='The Button2Click handler has started';
UniSession.Synchronize(); //<-----
...

Best regards,