需要实现一半透明控件从左至右将一memo中的文字遮盖住,即memo 字被盖住后仍能看到或者如何控制memo 中的文字被逐个选中状态
解决方案 »
- 如何把RZCHECKTREE中选中的节点信息在listview中显示
- <急救> 在Delphi中 如何查询DB数据表里面的一条记录```谢谢`
- DELPHI MSCOMM 串口通信 帮帮我!!!!!!!!
- 在StringGrid的Cell中如何取消刚刚输入的值
- 【····· 求职 ·····】〈Delphi软件开发〉
- 登录窗口(求助!)
- 散分,散心,散...... 小小
- 怎样编写设置某个目录为共享目录?
- 如何控制TwordApplication连接word的时候在已经启动了word就不再启动新的word对象?
- 我做了个报表,预览时的汉字显示总是有的挤在一起,有的又离的很远,打印时却没问题。
- 最后60分,大家有没有用过可以像TEdit那样选定的Label控件啊?
- 文件操作问题:改名,删除,移动
begin
memo1.Lines.Clear;
memo1.Lines.Add('sdfsdfsdf234234');
memo1.SetFocus;
memo1.SelStart:=10;
memo1.SelLength:=3;
end;
然后放一个richedit 在 窗体上,放一个timer,他的enabled 开始为false
在timer的 ontimer 事件中加入
richedit1.SetFocus;
if i< length(richedit1.Lines.Text) then
begin
richedit1.SelStart:=i;
richedit1.SelLength:=2;
inc(i);
end;
在一个按钮事件中 加 timer.enabled:=true;
可以把timer的计时速度调为 3000,速度可根据需要调节
可以把 richedit1.SelLength:=2; 改为 richedit1.SelLength:=1 这根据你的需要 至于透明的panel,我估计得改写代码,或者自己写一个控件,把TcustomForm 类中的
SetLayeredAttribs
SetAlphaBlend
SetAlphaBlendValue
搞过去,处理一下,应该可以的,试试先!