A_MU Posted December 27, 2011 Share Posted December 27, 2011 HI, Frarshad, FIRST,My Englishis very pool, I want to implement Autoscroll with UniMemo in WEB MODE,FOR example,show announcement to user, i have test case: use a timmer, ----------------------------------------------------------------------------- procedure TMainForm.UniTimer1Timer(Sender: TObject); var i:integer; begin i:=0; if uniMemo_announce.Lines.Count=0 then uniMemo_announce.Lines:=Announce_str; repeat if uniMemo_announce.Lines.Count=1 then exit; uniMemo_announce.Lines.Strings:=uniMemo_announce.Lines.Strings[i+1]; inc(i); until i=uniMemo_announce.Lines.Count-1; uniMemo_announce.Lines.Delete(i); uniMemo_announce.Refresh; end; // PS:Announce_str IS A GLOBAL VARIABLE ----------------------------------------------------------------------------------- COMPILE IS CORRECT;but no anything effect in runtime; in the other case: procedure TMainForm.UniTimer1Timer(Sender: TObject); begin unilabel1.caption:=datetimetostr(now); end; in runtime,this is effect that i need; why? Quote Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted December 27, 2011 Administrators Share Posted December 27, 2011 HI, Frarshad, FIRST,My Englishis very pool, I want to implement Autoscroll with UniMemo in WEB MODE,FOR example,show announcement to user, i have test case: use a timmer, Please send a test case. Quote Link to comment Share on other sites More sharing options...
A_MU Posted December 28, 2011 Author Share Posted December 28, 2011 TEST CASE test1.rarSee Annex Quote Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted December 29, 2011 Administrators Share Posted December 29, 2011 Logged #1228 and fixed 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.