用软件来实现,没有底色的透明飞字,怎么实现?
解决方案 »
- 有做过通过串口控制Modem卡的高手么?帮忙吧
- 通信监控
- 大侠们帮帮小弟忙.可以说一下TreeView和ListView的属性,参数等方面的知识吗?
- 如何将一个字符串转换成一个对象的名字
- 数据库更新?
- 急:如何把DecisionGraph打印的大一些?
- 请问如何得到两个日期控件datetimepicker相差的天数?
- 关于delphi xe2 连接excel 2013 读取数据问题
- delphi编译的搜速路径怎么指定?
- 一个关于Web Server Application的问题!急!!!
- 几个常用简单的问题
- 100分求把 .txt 文件导入到数据表的最优方法.在线等...最迟本周末结贴,不论是否有结果.请高手进.顶者有分.
begin
label1.Top:=label1.Top-2;
if label1.Top<10 then label1.Top:=500;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=25;
label1.Transparent:=true;
label1.Caption:='测试飞行效果!';
self.DoubleBuffered:=true;end;