jaosobne Posted October 11, 2019 Share Posted October 11, 2019 Hi , I have event on ColumnActionClick in grid to show window in the onaftershow event of this window is executed this code which needs 10s to be finished procedure TShowURL.getDCL(sn:string); var url,filename:string; begin if (not sn.IsEmpty) then begin Caption:=sn; uniURL.ShowMask('Connecting ...'); UniSession.Synchronize; if smartdata.esmartConnect then begin uniURL.ShowMask('Dowloading ...'); UniSession.Synchronize; smartdata.checkDCL(sn); smartdata.getLastComm(sn); smartdata.AHTTPResponseStream.Position:=0; url := UniServerModule.LocalCacheURL+sn+'.html'; filename := UniServerModule.NewCacheFileUrl(false, '.html', sn, '', url); smartdata.AHTTPResponseStream.SaveToFile(filename); uniURL.HideMask; UniURL.URL:=url; end; end; end; the window is shown but any mask isn't shown while procedure is executing. the caption is not changed too. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now