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? 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. 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 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 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