請問一下BCB能有跑馬燈嗎？ |
|
尚未結案
|
|
hampo
一般會員   發表：13 回覆：4 積分：3 註冊：2004-09-20 發送簡訊給我 |
|
|
ray24
中階會員  發表：18 回覆：88 積分：56 註冊：2002-07-24 發送簡訊給我 |
|
|
hampo
一般會員 發表：13 回覆：4 積分：3 註冊：2004-09-20 發送簡訊給我 |
|
|
CuteBabyBoy
初階會員  發表：18 回覆：97 積分：48 註冊：2003-07-11 發送簡訊給我 |
Dear hampo 我個人覺得，你可以從兩個地方下手 第一. 固定 Label->Text , 改變 Label->Left
第二. 固定 Label->Left , 改變 Label->Text ---------------------------------------------------
例
1. a
2. ab
3. abc
4. abc
5. abc
6. bc
7. c 第一方式,是將整個元件做移動,雖然看起來像走馬燈.但還是很粗糙,因為只能做到 3 ~ 5 的效果,如果想做頭尾的效果,就要換算 (改變Left的同時,也改變Text) 第二方式,就重頭到尾改變Text的內容,也是要換算,其他空間補空格 .................................................................. 偷懶的方式..... 以前我也做過類似的,但老闆只是要我 Demo , 當時我又很忙 , 所以我就直接放 WebBrowser在上面 , 去 Link 我設計的 HTML (上面只有一個跑馬燈) 哈哈哈...夠快吧..... Baby
|
|
andychang1690
資深會員 發表：20 回覆：694 積分：442 註冊：2003-03-14 發送簡訊給我 |
hampo：ray24推薦的是Delphi語言，其中sos_admin版大的作法最簡單
翻譯一下BCB語言！
sos_admin版大：在panel上放個label就可以實現上下左右，還有其他方式的現實，不論是什麼字體系統支援就可以。
// Delphi語言，向右遊走
// if Label1.LeftBCB語言
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Enabled=false;
// if (Label2->Left < Panel1->Width) // 向右
// Label2->Left =5;
// else
// Label2->Left=0;
if (Label2->Left Label2->Width > 0) // 向左
Label2->Left-=5;
else
Label2->Left=Panel1->Width;
Timer1->Enabled=true;
}
請參考！
Andy Chang
------
Andy Chang |
發表時間：2004-10-07 00:28:46
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-11-23 0:32:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |