文/曹陽(yáng)

　　很多優(yōu)秀的軟件，在它的關(guān)于對(duì)話框中，右半部分有一個(gè)開(kāi)發(fā)人員的動(dòng)態(tài)字幕。利用C++ Builder可以方便地實(shí)現(xiàn)該功能：

　　創(chuàng)建一個(gè)新工程，在窗體Form1中添加一個(gè)Panel組件，將Caption屬性清空，另外將Bevelinner和Bevelouter屬性設(shè)置為Bvnone。選中Panel組件，在其中添加Label組件，將Caption屬性清空，Autosize屬性設(shè)置為T(mén)rue，Name屬性設(shè)置為L(zhǎng)abel1。(注意，對(duì)于Label1組件
，當(dāng)Caption屬性清空，Autosize屬性又為T(mén)rue的情況下，用鼠標(biāo)選取Label組件是一件比較困難的事。這時(shí)可以在對(duì)象觀察器里通過(guò)下拉組合框來(lái)選中Label1。)

　　在窗體中添加一個(gè)定時(shí)器組件，屬性Enable設(shè)置為T(mén)rue，屬性Interval設(shè)置為100。在窗體的左邊可以添加一些Label組件，起到說(shuō)明作用。

　　添加窗體Form1的Oncreat事件的處理過(guò)程：

　　void__fastcall Tform1::FormCreate(TObject *Sender)

　　{ //設(shè)置LABEL1組件的顯示內(nèi)容

　　Label-〉Caption="設(shè)計(jì)：曹陽(yáng) 編程：徐立偉 測(cè)試：魏勇“；

　　}

　　添加Timer組件的Ontime事件的處理過(guò)程：

　　void__fastcall Tform1::Timer1Timer(TObject *sender)

　　{

　　Label1-〉Top=Label1-〉Top-1;

　　//將Label1組件向上移動(dòng)

　　//如果Label1顯示完畢，則重新開(kāi)始

　　if (Label1-〉Top〈(Label1-〉Width-30))

　　Label1-〉Top=Panel1-〉height;

　　}

　　編譯、鏈接、運(yùn)行，即可看到一個(gè)不停向上滾動(dòng)的字幕。

　　可以調(diào)整Timer組件的屬性Interval的值，改變字幕滾動(dòng)的速度。