圖片移動會閃爍 |
|
尚未結案
|
|
lalokalaloka
一般會員   發表：9 回覆：4 積分：2 註冊：2004-07-03 發送簡訊給我 |
我想要讓一張圖片移動 void __fastcall TForm1::FormActivate(TObject *Sender)
{
ScrollBar2->Position=50;
Timer1->Interval=ScrollBar2->Position; } void __fastcall TForm1::ScrollBar2Change(TObject *Sender)
{ Timer1->Interval=(ScrollBar2->Position);
} void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ Image1->Left=Image1->Left 10;
if(Image1->Left>=Width)
{
Image1->Left=-Image1->Width;
}
} 可是它會一直閃爍 可以解決嘛
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 我想要讓一張圖片移動 void __fastcall TForm1::FormActivate(TObject *Sender) { ScrollBar2->Position=50; Timer1->Interval=ScrollBar2->Position; } void __fastcall TForm1::ScrollBar2Change(TObject *Sender) { Timer1->Interval=(ScrollBar2->Position); } void __fastcall TForm1::Timer1Timer(TObject *Sender) { Image1->Left=Image1->Left+10; if(Image1->Left>=Width) { Image1->Left=-Image1->Width; } } 可是它會一直閃爍 可以解決嘛lalokalaloka 你好: 請參考以下的連結文章
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
發表時間：2004-08-05 21:19:10
IP:218.167.xxx.xxx 未訂閱
系統時間：2024-11-25 19:46:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |