Ario.Paxaz Posted May 12, 2017 Share Posted May 12, 2017 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. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted May 13, 2017 Share Posted May 13, 2017 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, Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.