如何在BCB中实现插件技术

如何在BCB中实现插件技术

在Timer控件写: if (Label1->Left >= 0 - Label1->Width) Label1->Left = Label1->Left - 5; else Label1->Left = Form1->Width - Label1->Width);
在Form里面放两个三个控件就可以实现了。 TPanel：相当与跑马灯的外围框和背景，你可以任意改变他的颜色。 TTimer: 物体移动的驱动。 TLabel: 你要移动的文字，在这里你也可以放图片（TImage) 将Label放到Panel控件上。 在TTimer ontimer事件里再添上楼上的代码，不就ok了吗
楼上各位的方法都会有闪烁。建议使用在内存中直接绘图，在显示出来。
对，还是在内存中直接绘图显示出来好。
学习
只要在放置 Label 的容器 (Form 或者 Panel) 的 DoubleBuffered 属性设为 true 就不闪烁了 __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { DoubleBuffered = true; Panel1->DoubleBuffered = true; }