C++Builder之ActiveControl

在Form上放置一个TTimer控件，编写TTimer对象响应事件。在Form上放置一些其他控件，在运行时更改活动控件显示位置，使活动控件每100毫秒向右移动一个像素。 

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Timer1->Interval = 100;
  if (ActiveControl)
    ActiveControl->Left = ActiveControl->Left + 1;
}