標籤: 跑馬燈

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]