大大们好，又麻烦您们了，不好意思！ 我一直就存在这个疑问：能否用Memo实现字幕的上下滚动？ 我只知道可以用Labal在Form内实现上下滚动:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Label1->Caption = "I Love this KTop\n\n我爱KTop\n\n这是我的家！";
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Label1->Top = Label1->Top-1;
   if( Label1->Top<(-Label1->Width-30) )
      Label1->Top=Panel1->Height;
}    

但是对于能否用Memo来实现不太清楚，今天看见一个控件（没有code），是Memo的加强，它实现了字幕的上下，左右滚动，所以我才斗胆请教各位大大，Memo如果要实现这样的功能，该怎么做，能否给个Example，谢谢先 < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

引言: 大大们好，又麻烦您们了，不好意思！ 我一直就存在这个疑问：能否用Memo实现字幕的上下滚动？ 我只知道可以用Labal在Form内实现上下滚动:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Label1->Caption = "I Love this KTop\n\n我爱KTop\n\n这是我的家！";
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Label1->Top = Label1->Top-1;
   if( Label1->Top<(-Label1->Width-30) )
      Label1->Top=Panel1->Height;
}    

但是对于能否用Memo来实现不太清楚，今天看见一个控件（没有code），是Memo的加强，它实现了字幕的上下，左右滚动，所以我才斗胆请教各位大大，Memo如果要实现这样的功能，该怎么做，能否给个Example，谢谢先 < class="code"> =============== 人生在勤,不索何获? ===============

bigdogchina 你好:
(1)請參考以下的連結文章 (原理)
   >
< class="code">
例如: 往上捲動
int gi=0;
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   Memo1->Lines->Clear();
   for(int i=0; i<100; i++)
   {
      Memo1->Lines->Add("Line-"+IntToStr(i)+"-ABCDEFGHIJKLMNOPQRSTUVWXYZ");
   }
   Timer1->Interval=100;
   Timer1->Enabled=false;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   SendMessage(Memo1->Handle, WM_VSCROLL, SB_LINEDOWN, 0);
   gi++;
   if(gi>=Memo1->Lines->Count)
   {
      Timer1->Enabled=false;
   }
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   gi=0;
   Timer1->Enabled=true;
}

-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2004/03/26 13:43:31

汗颜，我还是不能理解里面的精髓！惭愧得很啊，请大大们勿生气，能不能再给个Example或者code，大大们对我的教诲犹如醍醐灌顶！谢谢先 < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

包大哥，谢谢您，您的几句话和code虽然简单，却概括扼要，一语道出了我苦想多日而不可得答案的问题的根本。再一次奉上最诚挚的敬意!!! < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？