Delphi 跑馬燈做法參考

if label1.left+label1.width>=0 then
label1.left:=label1.left-3
else
begin
inc(ordn);
if ordn>=memo1.lines.count then ordn:=0
else if trim(memo1.lines[ordn])=” then ordn:=0;
label1.left:=label1.Parent.Width;
label1.caption:=memo1.lines[ordn];
end;

備註:
1.Form出現捲軸
Form1.HorzScrollBar.Visible := False;
2.Timer不要設定太慢
3.ordn設為private變數(不要設定在timer事件)

JQuery Cycle Plugin顯示頁數

可以在after加上以下的代碼就可以了

[javascript]
$(function() {
$('#slideshow').cycle({
fx:      'scrollHorz',
timeout:  2000,
prev:    '#prev',
next:    '#next',
pager:   '#nav',
after:     onAfter
});
});

function onAfter(curr,next,opts) {
var caption = 'Image ' + (opts.currSlide + 1) + ' of ' + opts.slideCount;
$('#counter').html(caption);
}
[/javascript]